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APPLICATIONS 

TOUR FACTS AND FIGURI 

Type this program in and you will instantly be 
able to prepare a colourful bar chart of any data 

GAMES PROGRAMMING 9 

PLANNING AN ADVENTURE 

The first part of a series showing you how to 
develop a complete adventure game 

BASIC PROGRAMMING 19 

CROSS-REFERENCING YOUR ARRAYS 269 




HOW TO ORDER 
YOUR BINDERS 

UK and Republic of Ireland: 

Send £4.95 (inc p & p)(IR£5.45) for 
each binder to the address below: 
Marshall Cavendish Services Ltd, 
Department 980, Newtown Road, 
Hove,SussexBN3 7DN 
Australia: See inserts for details, or 
write to INPUT, Gordon and Gotch 
Ltd, PO Box 213, Alexandria, NSW 
2015 

New Zealand: See inserts for details, 
or write to INPUT, Gordon and Gotch 
(NZ)Ltd,PO Box 1595, Wellington 
Malta: Binders are available from 
local newsagents. 



There are four binders each holding 13 issues. 



BACK NUMBERS 

Copies of any part of INPUT can be obtained from the following addresses at the 
regular cover price, with no extra charge for postage and packing: 
UK and Republic of Ireland: 

INPUT, Dept AN, Marshall Cavendish Services, 

Newtown Road, Hove BN3 7 DN 
Australia, New Zealand and Malta: 
Back numbers are available through your local newsagent 



How to store information in multi-dimensioned 
arrays, and then call up the data to order 

MACHINE CODE 10 

ENTER MACHINE CODE 



What's involved, and a complete monitor program 
to enable you to do it 



COPIES BY POST 

Our Subscription Department can supply your copies direct to you regularly at £1.00 
each. For example the cost of 26 issues is £26.00; for any other quantity simply 
multiply the number of issues required by £1.00. These rates apply anywhere in the 
world. Send your order, with payment to: 

Subscription Department, Marshall Cavendish Services Ltd, 

Newtown Road, Hove, Sussex BM3 7DN 
Please state the title of the publication and the part from which you wish to start. 



BASIC PROGRAMMING 20 
MEANINGFUL RELATIONSHI 



Using the operators, which explore the relationship 
between expressions, and make important decisions 



INDEX 

The last part of INPUT, Part 52, will contain a complete, cross-referenced index. 
For easy occess to your growing collection, a cumulative index to the contents 
of each issue is contained on the inside back cover. 
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INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIRZX SPECTRUM (16K,48K,128and + ), 
COMMODORE 64 and 1 28, ACORN ELECTRON, BBC B 
and B+,and the DRAGON 32 and 64. 

In addition, many of the programs and explanations are also 
suitable fortheSINCLAIRZXSl, COMMODORE VIC 20,and 
TANDY COLOUR COMPUTER in 32 K with extended BASIC. 
Programs and text which are specifically for particular machines 
are indicated by the following symbols: 



SPECTRUM 16K, 
48K,128,and + 



CZ 



H 



ACORN ELECTRON, 
BBC B and B+ 



COMMODORE 64 and 128 



DRAGON 32 and 64 



ZX81 



VIC 20 



a 



TANDY TRS80 
COLOUR COMPUTER 
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FACTS AND F 




For instant analysis, you provide the 
figures, forget about the maths, and 
watch your micro convert them into 
a colourful and professional-looking 
bar chart 

Everyone must have seen adverts for business 
computer systems showing elaborate displays 
of data, such as sales figures and stocklists. 
This kind of information — masses of virtually 
incomprehensible figures — is best presented as 
graphs or charts, which are easy to understand 



at a glance. Preparing them by hand is tedious, 
but it is just the kind of job at which business 
computers excel, with the ability to give a 
colourful display in seconds. 

Data presentation isn't just limited to busi- 
ness machines, but it is also one of the practical 
applications for a home computer. All the 
machines covered here, with the exception of 
the Vic 20 and ZX81, have graphic and 
mathematical capabilities well able to handle 
this sort of work. 

The average home user is unlikely to handle 
anything like the vast amount of information 



ABOUT THE PROGRAM 



ENTERING THE INFORMATION 



EDITING THE DATA 



PLOTTING THE CHART 



SCALING THE AXES 



generated by even a small business, but there is 
much that can be analyzed usefully on a 
computer. For example, did income and ex- 
penditure increase towards the end of the year, 
or was expenditure falling? Did you spend 
more on computer software (or other items 
such as magazines, entertainment and motor- 
ing) during the autumn than you did during 
the summer? When did your savings rise above 
a certain level, and how long did they stay 
there? 

Besides these commercial-type applic- 
ations, there are all sorts of general interest 
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subjects, or perhaps facts and figures that 
relate to a hobby, which could usefully be 
analyzed and displayed. These subjects range 
from, for example, the attendance figures at a 
local club, to rainfall or tide levels. Other 
things you might want to chart are sports 
scores, and the size of a growing collection. 

The simple program given here lets you 
rapidly prepare a visual display of any statistics 
that vary over a period of time. The axes of the 
display are adjusted automatically, so you can 
enter weekly, monthly or annual figures — in 
fact, any unit of time. 

The maximum range of values that the 
program can cope with depends on the com- 
puter. The Dragon and Tandy are limited 
within +99 and —99. The Spectrum can 
handle up to a thousand, plus or minus, while 
the Acorn and Commodore computers handle 
numbers of any magnitude: units, tens, 
hundreds, thousands or even millions, if your 
accounts stretch that far. 



USING THE PROGRAM 



When you RUN the program, it displays a 
'menu', or list of options. On selecting the 
option to enter new data, you are invited to 
name the axes — the labels you type in will 
appear on the chart when it is drawn. When 
entering the labels, remember to get them the 
right way round. The number of bars — 
representing weeks, months, years, or 
whatever — is plotted along the x-axis, and the 
value of the bars — dollars, pounds or any other 
units — is plotted along the y-axis. | 

Next, you are asked to enter the number of 
bars to be plotted. The maximum number you 
can enter depends on the arrangement of your 
computer — basically, the size of its graphics 
screen. For example, the Spectrum can plot a 
maximum of only 25 bars; the Dragon and 
Tandy plot 26; the Commodore 64 plots 30. 
Acorn machines are actually capable of plott- 
ing nearly 200, but the practical limit is about 
80, beyond which the thickness of the bars is 
either irregular or too thin to be visible. 

The display then asks you for your data. It 
prints out the number of each bar and asks you 
to enter its value, which can be either positive 
or negative. On the Dragon and Tandy, these 
values can range from — 999 to 999; on the 
Spectrum they range from — 1,000 to 1,000; 
on the Acorn and Commodore machines they 
range from — 10 38 to 10 38 . If you use a 
Spectrum, Dragon or Tandy, and have data 
that lies outside the range of the program, then 
the solution is to plot the values in units of 
hundreds, thousands, millions, billions, or 
whatever.'^^^^^^^^^^^^^H 

When the last value has been entered, the 
display returns to the menu, so you can choose 




either to edit the data — change the values 
you have entered, if you have made any 
mistakes — or plot the chart. If you choose to 
edit, the values will either be printed in turn on 
the screen (Commodore and Acorn), or you 
will be asked to enter the number of the bar 
you wish to edit (Spectrum, Dragon and 
Tandy). Commodore users should press any 
key but | RETURN j to leave a value unchanged 
and view the next one, or | RETURN | then enter 
the new value. Acorn users should press the 
space bar and Spectrum, Dragon and Tandy 
users should follow the prompts that appear on 
the screen. 

When you are satisfied with the values, 
select the option to view or plot the chart. 
Acorn users have only one choice of chart, 
which is plotted almost instantly. On the BBC 
micro, the display shows the factor (for 
example, xl00) by which the values along the 



y-axis are multiplied. This factor is printed on 
the first line above the y-axis, and on some TV 
sets may be partly obscured by the frame of the 
TV tube. To bring the factor fully into view, 
enter "TV255 | RETURN | before RUNning the 
program. The effect is to lower the display by 
one line. 

Users of Dragon, Tandy, Spectrum and 
Commodore micros can choose either a scaled 
graph or a full-scale graph. The scaled graph 
option displays the chart with dimensions 
along the y-axis rounded off to a maximum of 
ten, a hundred, a thousand or so on, depending 
on the maximum value of the data, but the 
chart might not fill the whole of the screen. 
The full-screen option displays the chart over 
the entire area of the TV screen, but prints the 
actual data values (not the scaled values) along 
the y-axis. The Acorn version always displays 
a full-screen graph. 
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For clarity, the bars plotted by the Acorn, 
Commodore and Spectrum micros are sep- 
arated by a small space or coloured bar. This is 
not practicable on the Dragon and Tandy, so 
the bars are coloured alternately cyan and 
yellow for positive values, and red and orange 
for negative values. 



10 LET g = 0: POKE 23609,20: POKE 

23658,8 
100 BORDER 7: PAPER 7: INK 0: CLS 

110 PRINT BRIGHT 1; PAPER 3; INK 7; 

AT4,9;"DODPnTninOnNnSD' 
120 PRINT BRIGHT 1;AT7,6;"D1:- 

D ENTER □ NEWQ DATAD □ □ " 
130 PRINT BRIGHT 1;AT 9,6;" D2:- 

DVIEWn/nEDITDDATAn" 
140 PRINT BRIGHT 1;AT 11, 6;" D3:- 

nscALEDnGRAPHnnnnn' 



145 PRINT BRIGHT 1;AT 13,6;"n4:- 

DFULLD SCREEN □ GRAPH" 
1 50 PRINT BRIGHT 1; FLASH 1; INK 2; 

AT 16,9;" O SELECTD OPTION □" 
160 IF INKEY$ = "" THEN GOTO 160 
170LETa$=INKEY$:IFa$<"1"OR 

a$>"4"THEN GOTO 160 
1 75 IF a$ <> "1 " AND g = THEN GOTO 

160 
180 GOSUB VALaSM 000: GOTO 100 
500 REM "NUMERIC INPUT ROUTINE** 
510 INPUT (w$); LINE a$: IF LEN 

a$=0 THEN GOTO 510 
520 FOR j = 1 TOLENaS 
540 IF (a${j) > = "0" AND a$(j) < = "9") 

OR d$tj) = "." OR a$(j) = " — " THEN 

NEXTj: LET v = VALa$: RETURN 
550 GOTO 510 

1000 REM "INPUT ROUTINE" 
1010 BORDER 1: PAPER 1: INK 7: CLS 



1020 INPUT "NAME OF X-AX1S?D"; 

LINE x$ 
1030 PRINT INVERSE 1;AT 0,0;" D"; 

x$'"D" 
1040 INPUT "NAME OF Y-AXIS? □"; 

LINE y$ 
1050 PRINT INVERSE 1;AT0,16;"D"; 

y$;"D" 
1060 LET w$ = "HOW MANYD" + x$ 

+ "□(1 TO 25)?n": GOSUB 500 
1070IFv<1 ORv>25 0RvolNTv 

THEN GOTO 1060 
1090 LET z = v: DIM a(z) 
1100 FOR k=1 TOz 
1110 LET w$ = "ENTER DATA FORD " + 

STR$k + "D": GOSUB 500 
1120 LET a(k) = v 
1130 PRINT k,a(k) 
1140 NEXT k: LET g = 1 : PAUSE 50: 

RETURN 
2000 REM * " EDIT / VIEW ROUTINE* * 
2010 BORDER 2: PAPER 2: INK 7 
2020 LET en = 1 
2025 CLS : PRINT PAPER 6; INK 2; 

AT0,0;x$,y$;TAB31;"LT' 
2030 PRINT cn,a(cn} 
2035 PRINT #1; PAPER 6; INK 2;AT 

0,0;" □□ EDIT to alter current 

value □ DDDDDany other key to 

continueDnnn" 
2040 PAUSE 

2050 IF INKEY$ = "" THEN GOTO 2050 
2060 LET c$ = INKEY$ 
2070 IF c$ = CHR$ 7 THEN GOSUB 2500 
2080 IF cn = z THEN PRINT PAPER 6; 

INK 2;"END OF DATA": PAUSE 100: 

RETURN 
2090 LET en = en + 1: IF en = 21 THEN 

GOTO 2025 
2100 GOTO 2030 
2500 LET w$ = "ENTER NEW VALUE FOR □ " 

+ STR$cn + "D": GOSUB 500 
2510 LET a(cn) = v: PRINT PAPER 6; 

INK2;cn,a(cn);TAB31;"D": 

RETURN 
3000 REM "SCALED GRAPH** 
3010 BORDER 0: PAPER 0: INK 7: CLS: 

LET hi = 0: LET lo=0 
3020 FOR k=1 TOz 
3030 IF a(k)>hi THEN LET hi = a(k) 
3040 IF a(k)<lo THEN LET lo = a(k) 
3050 NEXT k 

3060 LET type = 2: LET org = 4 
3070 IF lo < THEN LET type = 1 : LET 

org = 84 
3080 LETT h = hi: IF ABS lo>hi THEN 

LETh = A8Slo 
3090 LETra = hi--lo. 
3100 IF h< =1 THEN LET hi = 1: GOTO 

3150 
3110 IF h< =10 THEN LET hi = 10: GOTO 
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Acorn: a plot of seasonal temperature changes 



Spectrum: profits and losses for 12 months 



THEN LET hi = 1( 
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3150 
3120IFh<=1« 

GOTO 3150 
3130 IF h< =1000 THEN LET hi = 1000: 

GOTO 3150 
3140 IF h< =10000 THEN LET hi=10000 
3150LETwd = INT{25/z) 
3160 IF type=1 THEN LETft = 80/hi 

3170 IF type=2 THEN LET ft = 162/r 
3180 PLOT 56,org: DRAW 198,0 
3190 PLOT 55,4: DRAW 0,160 
3200 FOR n=4 TO 168 STEP 8: PL(| 

52,n: DRAW 3,0: NEXT n 
3220 PRINT #1; PAPER 1;AT0,H;"D"; 

x$;"D" 
3225 LETz$ = "n" + y$ + "d" 
3230 FOR n = 1 TO LEN z$ 
3240 PRINT AT n + (1 9 - LEN y$)/2,0; 

PAPER 1;z$(n) 
3250 NEXT n 
3255 LET dc = 1 

3260 IF type = 1 THEN GOTO 3320 
3270 FOR n = hi TO STEP -(hi/1 1 
3275 IF n<. 01 THEN LET n = 
3280 LET n$ = STR$n 
3290 PRINT AT dc,(6- LEN n$);n 
3295 LET dc = dc + 2 
3300 NEXT n 
3310 GOTO 3400 

3320 FOR n = hi TO — hi STEP — (h 
3330 IF n<. 01 AND n> -.01 THE 

LETn = 
3340 LET n$ = STR$n 
3350 PRINT AT dc, (6-LENn$);n 
3360LETdc = dc + 2 
3370 NEXT n 
3400 LET ink =1 
3410 FOR n = 1 TOz 
3420 LET cm = org 
3430 LET ink = ink + 1 : IF ink = 8 Th 




LET ink = 2 
3440 INK ink 

3450 FOR m = 1 TO (a(n)*ft) STEP SGN a(n) 
3460 PLOT56 + (n-1)*wd'8,cm: DRAW 

wd*8-2,0 
3470 LETcm = cm+SGNa(n) 
3480 NEXT m 
3490 NEXT n 

3500 IF INKEYS < > "" THEN GOTO 3500 
3510 IF INKEY$ = "" THEN GOTO 3510 
3520 RETURN 

4000 REM "FULL SCREEN GRAPH** 
4010 BORDER 0: PAPER 0: INK 7: CLS : 

LEThi = 0:LETIo = 
4020 FOR n = 1 TOz 
4030 IF a(n) > hi THEN LET hi = a(n) 
4040 IF a(n) < lo THEN LET lo = a(n) 
4050 NEXT n 
4060 LET a = hi - lo: LET ft = 1 75/ra: 

LET org = (ra — hi)*ft 
4070 LET wd = INT (25/z) 
4080 PLOT 56,org: DRAW 198,0 
4090 PLOT 55,0: DRAW 0,175 
4100 PRINT #1; PAPER 1 ;AT 0,1 4;" □ "; 

x$;"LT' 
4110 LET z$ = "LT' + y$ + "D" 
41 20 FOR n = 1 TO LEN z$ 
4130 PRINT AT n + (19 — LEN y$)/2,0; 

PAPER 1;z$(n) 
4140 NEXT n 

4150 PRINT AT 0,0;hi;AT 21, 0;lo 
4200 GOTO 3400 




0BB = 53280:GOTO200 

1 CLR:BB = 53280:FF = 1 

2 POKE BB,0:POKEBB + 1,0 

3 a$= •MMBHHSBHMaK 



4 INPUT "□ENTERDNAMEQ FORD 

GRAPH";N$ 

5 INPUT "QiaENTERnNUMBERnOFn 

BARS. (1-30)";XX 
6IFXX<1 ORXX>30THEN5 

7 DIM A(XX),B(XX},C(XX) 

8 FOR Z=1 TO30 

9 IF XX"Z>30THEN X1 =Z-1: GOTO 11 

10 NEXT Z 

11 PRINT "□ ENTER D DATA: H" 
12F0RZ=1 TO XX:PRINT "BAR"; Z;: 

INPUT C(Z):NEXT Z 
13A = 0:B = 0:C = 0:D = 
14 FOR Z=1 TO XX 
15IFC(Z)>ATHENA = C(Z) 

1 6 IF C{Z) < B THEN B = C(Z) 

1 7 IF C(Z) < THEN B(Z} = C(Z): A(Z) = 

1 8 IF C(Z} > THEN A(Z) = C(Z): B(Z) = 

19 NEXT Z 

20C = A + ABS(B) 
22 GOTO 200 

24 POKE BB,5:P0KE BB + 1,0 

25 PRINT "□"NS 

26 FOR Z=2 TO 22 

27 POKE 1 033 + Z*40,64: POKE 55305 
+ Z*40,6 

28 POKE 1032 + Z*40,45:POKE 55304 + 
Z*40,3 

29 NEXT Z 

30FORZ=1 TOXX:W=0:CO = 8 
31 IFB(Z)<0THENCO = 2 
32FORZZ=B/DTOA/D j 

33 W = W+1:IF INT{ZZ)<>0 THEN 38 

34 FOR G = 1 T0X1 

35 POKE (1953- X1) + (Z*X1+ G)- 
W*40,64 

36 POKE (56225 X1) + ( 
W*40,7 

37 NEXT G:GOTO 43 

38 FOR G = 1 TOX1:CA=227:CC = CO: 
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Dragon and Tandy: a plot of percentages 

IFGol ANDG = X1THENC0 = 1 

39 IFZZ<0 THEN CA = 228 

40 IF B(Z)/D > ZZ OR A{Z)/D < ZZ THEN 43 

41 POKE((1953-X1) + Z*X1+G)- 
W*40,CA:POKE({56225 - X1 ) + Z*X1 + 
G)-W # 40,CO 

42CO = CC:NEXTG 

43 POKE BB,RND(1)*2 + 5 

44 NEXT ZZ,Z:P0KE BB,5 

45 PRINT "HHS";LEFT$(Q$, 
20-ABS(B/D)) 

46FORZ = 0TOASTEPD*2: IFC=<10 
AND INT(Z)< >ZTHEN PRINT" OD 
n":G0T0 48 

47 PRINT INT(Z)"nnn" 

48 NEXT Z 

49 PRINT "@S";LEFT$(O.$>20- 
ABS(B/D)) 

50FORZ=0TOBSTEP — D*2: IF C= <10 
AND INT(Z)<>Z THEN PRINT 
"H":GOT0 52 

51 PRINT INT(Z)"M" 

52 NEXT Z 

53 POKE 198,0 

54 GETA$:IF A$ = ""THEN 54 

55 GOTO 200 

100 POKE BB,1:P0KEBB + 1,1 

103 IF FF = THEN 500 

105 PRINT"agS"TAB(10}"BARD 

GRAPHDPLOnERD" 

ii0PRiNT"HHDnn|j t" 

115F0RZ=i1 TO 15 

120 PRINT ^nG[JJ":NEXTZ 

125 PRINT "□□□goE"; 
1 30 FOR Z = 1 TO 30 
135 PRINT "-";:NEXTZ 
140 PRINT ">" -^^^^^^^^m 
145 PRINT "S3SHSMH19HIII 
UUUIJVALUE:UUSERSn UNITS" 

150 print "HHKHHSHSSM 



Commodore 64: each bar has a '3D' effect 



M II II II II U BARS: □ WEEKS/ 

MONTHS/YEARS" 
155 PRINT "HHMMia"TAB(9) 

"PRESSDKEYnTODCONTINUE" 
160 POKE 198,0 
165 WAIT 198,1 
170 GOTO 24 

200 POKE BB,6:POKEBB + 1,6 
210 PRINT "□HMHHMHH"tab 

(i5)"EjSC]noPTiONnnHS" 

220 PRINT TAB(12)"1DENTERD DATA" 
230 PRINT TAB(12)"2D SCALED D GRAPH" 
240 PRINT TAB(12)"3DVIEW/EDITD DATA" 
245 PRINT TAB(12}"4DFULLDSCREEND 

GRAPH" 
250 PRINT TAB(13}"HBaENTERD 

CHOICE D?" 
260 POKE 198,0 
270 GET A$ 

280 ON VAL(A$) GOTO400,700,300, 600 
290 GOTO 270 
300 IF FF = THEN 500 
305 POKE BB,7:POKE BB + 1,7 
310 PRINT "□!!"N$"nDATA:" 
315 PRINT,"H!SBAR"/ i aHEIGHTB" 

320FORZ=1 TO XX 
325IFA(Z)o0THEN PRINT,'<a"Z, 

"!l"A(Z):GOT0 335 
330 PRINT,"!l"Z,"a"B(Z) 
335 POKE 198,0 
340 GET A$ 

345 IF A$ = "" THEN 340 
350 IF A$< >CHR$(13) THEN 370 
355 PRINT "GM"TAB(18); 
360 INPUT C(Z) 
365 GOTO 13 
370 NEXT Z 
375 GOTO 200 
400 POKE BB,13:POKEBB + 1,13 

410 PRiNT-rjHBHBSHMH 



UlltltlllllElPRESsnoEU) 

NTERZDATAn,[..j(aM|i)ENU" 
420 GET A$ 

430 IF A$ = "E" THEN 1 
440IFA$ = "M"THEN200 
450 GOTO 420 

500PRINT"n3"TAB{16)"NOL.lDATA!" 
510FORZ=1TO500:NEXTZ 
520 GOTO 200 
600 IF FF = 0THEN 500 

605 IF C<= 10 THEN D=.5:GOTO100 

606 IF C< =20 THEN D = 1:G0T0 100 
610D = C/20:GOTO 100 

700 IF FF = THEN 500 

705 IF C< =10 THEN D = 1.25:GOTO 100 

706 IF C< =20 THEN D = 2.5:GOTO 100 
710D = C/20 + 9:D=DM:D=INT(D)* 

10:GOTO 100 



10A = 

20 M0DE1 

30 VDU1 9,0,4,0,0,0,1 9,1 ,2,0,0,0,19, 
2,1,0,0,0 

40 CLS:PRiNTTAB(10,8)"OPTIONS:" 
TAB{1 0,1 1)"1D ENTER D DATA" 
TAB(10,13)"2L~]EDITnORnVIEW 
DDATA"TAB(1 0,1 5)"3D VIEW 
DGRAPH"TAB(10,17)"4DEND" 

50 G = GET 

60 IF G = 49 THEN PROCINITVAL: GOTO40 

70 IF G = 52THEN 130 

80 IF A=1 THEN 100 

90 PRINT""YOUDHAVEN'TD ENTERED 
D ANY D DATA.": FOR T=1 TO 2000: 
NEXT: GOTO 40 

1 00 IF G = 50 THEN PROCEDIT: GOTO 40 

110 IF G = 51 THEN PROCVIEW 

120 GOTO 40 

130 CLS 



km 
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140 END 

150 DEF PROCINITVAL 

160 IF A=1 THEN PRINF'YOUDHAVE 

DENTEREDDSOMEDDATAD 

ALREADY":FOR T=1 TO 2000: NEXT: 

ENDPROC 
170A = 1 
180 CLS 
190 INPlTr'TITLEDOFDGRAPHD", 

T$:T$ = LEFT${T$,25) 
200 INPLTT'NAMEDOFQX-AXISD", 

X$:X$ = LEFT$(X$,25) 
210 INPUT'"NAMEDOFDY-AXISD", 

Y$:Y$ = LEFT$(Y$,25) 
220 INPUT u HOWDMANYDBARSD" } N 
230 IF N = THEN 220 
240 CLS 
250 PRINT"'NOWD ENTER D YOUR D 

DATA'" 
260 PRINnAB(12)"BAR","VALUE' 1 
270DX=1000/N 
280 DIM Y(N) 
290 FOR T=1 TON 
300 PRINTTA8(12)"No.D";T 

INPUT""Y(T) 
310 NEXT 
320 ENDPROC 
330 DEF PROCVIEW 
340MAX = 0:MIN = 
350 FOR T = 1 TON 
360 IF Y(T) > MAX THEN MAX = Y(T) 
370 IF Y(T)<MIN THEN MIN = Y(T) 
380 NEXT 

390 PROCSCALEPOS 
400 PROCSCALENEG 
410 PROCNORM 
420 CLS 
430 GCOL0.3 
440R = MAX3-MIN3 
450 MOVE242,60:DRAW242,960 
460DY = 900/R 
470 YAX = 60 MIN3/R*900 
480 MOVE242,YAX:DRAW1200,Y^ 
490W = 1000/N-8 
500 PROCYAXIS 
510 PROCNAMES 
520 FOR T = 1 TON 
530 PROCBLOCK 
540 NEXT 

550G = GET:ENDPROC 
560 DEF PROCBLOCK 
570 IF Y(T) > THEN GCOL0,1 ELSE 

GCOL0,2 
580 MOVE250 + (T - 1 ) * DX, YAX: 

MOVE250 + W + <T - 1 ) * DX, YAX 
590 PLOT85,250 + (T-1)*DX,YAX+ 

Y(T)*DY/FAC:PLOT85,W + (T-1) 

*DX+250,YAX+Y(T)*DY/FAC 
600 ENDPROC ■■■^ 
610 DEF PROCSCALEPOS 
620FAC = 
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630IFMAX = 0THEN650 

640FAC = 10aINT(LOG(MAX)) 

650 ENDPROC 

660 DEF PROCSCALENEG 

670FAC2 = 

680 IF MIN = 0THEN 700 

690 FAC2 = 10aINT(LOG(-MIN)) 

700 ENDPROC 

710 DEF PROCNORM 

720 IF FAC2> FAC THEN FAC= FAC2 

730MAX3 = INT(MAX/FAC + 1): 

MIN3 = INT(MIN/FAC-1) 
740 IF MIN = THEN MfN3 = 
750IFMAX = 0THENMAX3 = 
760 ENDPROC 
770 DEF PROCYAXIS 
780 GCOL0,3 
790 VDU5 

800FORT=MIN3TOMAX3 
810 MOVE0,70+(T-MIN3)*DY: 

PRINTTAB(7-LEN(STR$(T)));T 
820 NEXT 
830 VDU4 
840 ENDPROC 
850 DEF PROCNAMES 
860 GCOL0.3 
870 VDU5 

880 FORT=1 TOLEN(Y$} 
890MOVE64,900-T*32:PRINT 

MID$(Y$,T,1) 
900 NEXT 

910MOVE320,31:PRINTX$ 
920 VDU4 
930VDU30:PRINT"X";FAC; 

TAB(15)T$ 
940 ENDPROC 
950 DEF PROCEDIT 
960 VDU12:PRINT"EDITINGD OPTION. 

DPRESSDSPACEDBARDWHEND 

YOUGETDTODTHEDONEDYOUD 

WANTD TOD CHANGED DDDDDD 

TODMOVEDONDTODTHEDNEXTD 

ONEDPRESSD RETURN" 
970 PRINT' 
980PRINT"DDDDBARDNO 

DDDDDDDVALUE" 
990 FOR T = 1 TON 
1000 PRINTT,Y(T) 
1010 IF GFJ<>32 THEN 1030 
1020PRINTT;"D",;CHR$(8);: 

INPUT""Y(T} 
1030 NEXT 
1040 ENDPROC 
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10PMODE4,1 
20 CLS 

30 PRINT@45,"menu":PRINT@102, 
"1 - DENTERnDATA":PRINT@166, 
"2 - D DISPLAYD BAR D CHART":PRINT 
@230,"3- DVIEW/EDITDDATA": 



PRINT@294,"4- QUIT PROGRAM" 
40A$ = INKEY$:IFA$<"1"OR 

A$>"4"THEN40 
50IFA$ = "1"ANDDA = 1THEN80 
60 ON VAL(A$) GOSUB 1000,2000, 

3000,4000 
70 GOTO 20 

80 PRINT@484,"ARED YOU D SURE D?"; 
90 A$ = INKEY$:IF A$o"Y" AND 

A$o"N"THEN90 
100 IF A$ = "Y" THEN CLEAR200: 

A$ = 'T':GGTO60 
110 GOTO 20 
1000 DA=1:CLS:INPUT"D NAMED 

OFDX-AXIS";X$ 
1010X$ = LEFT$(X$,32):IFX$ = 

""THENX$ = "X-AXIS" 
1020MD=INT(16-LEN(X$)/2) 
1030 INPUT'DNAMEDOFDY- 

AXIS";Y$ 
1040 Y$= LEFT$(YS,12):IF Y$ 

= "" THEN Y$ = "Y-AXIS" 
1050HT=INT(6-LEN(Y$)/2) 
1060 INPUT"DNODOFDBARSD";NB 
1070NB = INT(NB):IFNB<1 THEN 

1060 
1080 BL=INT(26/NB);IF BL<1 THEN 

BL=1 
1090 DIM A(NB) 
1100 PRINT 
1110 FOR K = 1 TONB 
1120 PRINT" DVALUEDOFD BAR"; 

K;:INPUTA(K) 
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1130 NEXT 

1140 RETURN 

2000 IF DA = THEN PRINT@455, 

"noDdataDentered":FOR K=1 

TO2000:NEXT:RETURN 
2010TP = 0:BT = 
2020 FOR K = 1 TONB 
2030 IF A{K)>TP THEN TP = A(K) 
2040 IF A{K)<BT THEN BT = A{K) 
2050 NEXT 
2060 IF TP = AND BT = THEN PRINT 

"DALLDVALUES3ZER0":F0R 

K = 1 TO 2000:NEXT: RETURN 
2070 CLS:PRINT@64,"DODYOUD 

WANTD AD SCALED D GRAPH D 

Y/N ?" 
2080 A$ = INKEY$:IF A$ <> "Y" 

AND A$o"N" THEN 2080 
2090 IF A$ = "N" THEN 2120 
2100 IF TP>0 THEN E = INT(L0G(TP}/ 

LOG{10)):TP = INT(1+TP/{10TE)) 

"10TE 
2110 IF BT<0 THEN E = INT(L0G 

(-BT)/LOG(10)):BT=- 

INT(1-BT/(10TE))'10tE 
2120IN = 178/(TP-BT) 
2130ST = INT(IN*TP) 
2140 T$ = "":IF TP = THEN 2160 
2150 IF TP>ABS(BT) THEN E = 2*INT 

(LOG(TP)/LOG(1 000)) ELSE E = 

2"INT(LOG(ABS(BT))/LOG(1000)) 
21 60 T$ = " + " + MID$(STR$(INT(.5 

+ TP/10fE)),2):B$ = "":IF 



BT = THEN 2180 
2170 B$ = STR$(INT(.5 + BT/10TE)) 
2180 SL=1:LP=NB:IF NB>26 THEN 

LP = 26 
2190 POKE 1 79,243: PCLS:POKE 65475,0: 

POKE 65477,0: POKE 65479,0 
2200 POKE 179,2 

221 LINE(40,0) - (47,1 91 ), PRESET, BF 
2220 IF T$ = "" THEN 2260 
2230 FOR K = 1 TO LEN(T$):P = ASC 

(MID$(T$,K,1))AND63:FORM = 

TO 11 
2240 POKE 1 540 -LEN(T$) + 32*M + K,P 
2250 NEXT M,K 
2260 IF BS = "" THEN 2300 
2270 FOR K = 1 TO LEN(B$):P = ASC 

(MID$(B$,K,1))AND63:FORM = 

TO 11 
2280 POKE 691 6 - LEN(B$) + M*32 + K,P 
2290 NEXT M,K 
2300FORK=1TOLEN(X$) 
2310 P = ASC(MID$(X$,K,1))AND63 
2320 FOR M = 182 TO 190: POKE 1503 + 

MD + 32*M + K,P:NEXT 
2330 NEXT 

2340 FOR K = 1 TO LEN(Y$) 
2350 FOR M = TO 11 
2360 P = ASC(MID$(Y$,K,1))AND63 
2370 POKE 1568 + 384*(K+HT) + 32*M,P 
2380 NEXT M,K 
2390 FOR K = 5 TO 31 
2400 POKE 1 536 + 32*ST + K,1 28 
2410 NEXT 




2420 FOR K = ST TO STEP -22 

2430 POKE 1541 + K*32,202 

2440 NEXT 

2450 FOR K = ST TO 178 STEP 22 

2460 POKE 1541 +K*32,202 

2470 NEXT 

2480 FOR K = SL TO LP:CO = (CO + 1 ) 

AND1 
2490 POKE 178,35 + 00*64: POKE 179, 

3 + CO*192 
2500 IF INT(A(K)*IN)>0 THEN LINE 

(48 + 8*(K-SL)"BL,ST-1) 

-(47 + 8*(K-SL+1)*BL,ST- 

INT(A(K)*IN)),PSET,BF 
2510 IF FIX(A(K)*IN)<0 THEN LINE 

(48 + 8*(K-SL)*BL,ST)- 

(47 + 8*(K— SL+1)*BL,ST— FIX 

(A(K)*IN)),PRESET,BF 
2520 NEXT K 

2530 IF LP = NB THEN 2570 
2540SL=LP + 1:LP=LP + 26:IF 

LP>NBTHEN LP=NB 
2550 IF INKEY$ = "" THEN 2550 
2560 POKE 179,243: LI NE(48,0) 

-(255,1 78), PRESET,BF:GOTO 2390 
2570 IF INKEY$ = "" THEN 2570 
2580 RETURN 
3000 IF DA = THEN PRINT@455, 

"noDdatanentered":FOR K = 1 

TO 2000: NEXT: RETURN 
3010SL=1:LP=NB:IFNB>14THEN 

LP=H 
3020CLS:PRINT"nbar","value" 
3030FORK = SLTOLP 
3040 PRINTK,A{K) 
3050 NEXT 

3060 IF NB = LP THEN 31 30 
3070 PRINT@480,"enTOnEDIT,D 

ANYnOTHERDTODCONTINUE"; 
3080 A$ = INKEY$:IF A$ = "" THEN 3080 
3090 IF A$ = "E" THEN 3170 
3100SL=LP+1:LP = LP + 14 
3110 IF LP>NB THEN LP=NB 
3120 GOTO 3020 
3130 PRINT@480,"eDTODEDIT, 

ANYCOTHERDTODRETURN"; 
31 40 AS = INKEY$:IF A$ = "" THEN 3140 
31 50 IF AS = "E" THEN 31 70 
3160 RETURN 
3170 CLS:PRINT:INPUT"D NUMBER DOFD 

ENTRYDTODBEDEDITEDn?";E 
3180E=INT(E):IFE<1 ORE>NBTHEN 
j 3170 
3190 PRINT:PRINT"NEW VALUE OF 

ENTRY";E;:INPUT A(E) 
3200 GOTO 3020 
4000 CLS:PRINT@37,"AREDYOUD 

SUREn(Y/N)D?" 
4010 A$ = INKEY$:IF A$o"Y" AND 

A$o"N" THEN 4010 
4020 IF A$ = "N" THEN RETURN 
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Transport your friends into a fantasy 
world of your own creation, and 
give them a few headaches too! We 
look at the world and history i 
adventure games 



For those of you who want some relief from 
arcade-type zapping games, there is an 
alternative — adventure games. In this kind of 
game the player is totally immersed in a fantasy 
world created by the programmer. Exercising 
his wit, wisdom and knowledge of odd facts 
and figures, he journeys around a fantasy 
world trying to complete the quest that the 
writer has dreamed up. 

Over the next issues of INPUT you'll see 
how you can write adventure games of your 
own — but first, an introduction to adventure 
games and what adventuring is all about. 



THE HISTORY OF ADVENTURES 



The idea of writing adventure games originally 
came from the popularity of non-computer 
games such as Dungeons and Dragons, and a 
desire to do something with computers more 
interesting than mere data processing. 

In Dungeons and Dragons, players assume 
the guises of a range of characters and hack one 
another to pieces (in imagination) in a world — 
known as a Dungeon — created by the Dun- 
geon Master. In adventure games the pro- 
grammer assumes a role similar to that of the 
Dungeon Master, creating a world of his own. 
The player, on the other hand, assumes a role 
similar to that of a character in D&D. 

Unlike in D&D, adventure players cannot 
usually choose the traits of their character, but 
this depends entirely on the game. In some of 




What do I do if I get stuck in an 
adventure? 

Don't give up, try again after a while as 
you may come up with a new idea or a 
new strategy. 

If you get really stuck, commercial 
adventures often provide a hints or 
answers sheet. It may be supplied in a 
sealed envelope with the game or you 
may have to send away for it. 

Another source of help is the 
letters page in some 
magazines. 



the more sophisticated versions, they can 
actually select their equipment, etc., 
before they set out on their 
quest. The emphasis is 
perhaps a little less blood- 
thirsty, too — although, of 
course, this is totally 
up to the writer. 

The earliest adventure was written 
on a mainframe in FORTRAN 
rather than BASIC. The program 
occupied some 300K of memory 
— somewhat more than your 
microcomputer has on board. 

The real story begins, though, 
when Scott Adams transferred some 
of the ideas to a TRS 80 micro 
in 1978 and proved that it was quite 
possible to write a satisfactory adven- 
ture in far less memory space. The 
themes Adams adopted for his games 
— Adventureland, Pirate's Cove, Mystery 
Fun House and The Count — have been 
endlessly reused by adventure writers ever 
since. 



ADVENTURE TYPES 



The original mainframe game and Adams' 
microcomputer games display just text on the 
screen. These text-only types are still the most 
popular, and some would say, the best kind of 
adventure. 

Text-only adventures really exist in the 
players' mind, and as you play a good adven- 
ture you'll find that you get totally wrapped- 
up in the story. 

Graphics have to be very sophisticated to 
compete with your imagination. For example, 
you can imagine a far fiercer ogre than can be 
drawn on even the best graphics screen, so it is 
quite possible that graphics will spoil your 
enjoyment. A major consideration against the 
use of graphics is that the display takes up a 
great deal of memory that could be used for 
extending the scope of the adventure. It is also 
all too easy to slow down the adventure 
because the player will have to wait for the 
picture to be drawn at each new location. 

Certain adventures give you a score for 
completing certain stages of the quest so that if 
you get killed at any stage you can judge how 




well you've done. Some even give you a 
rating — buffoon or expert, say. The other end 
of the scale is the adventure in which you are 
given no clue at all as to how well you are 
doing, nor how close you are to the final goal. 
The ultimate satisfaction here comes from 
solving an endless series of puzzles and gradu- 
ally coming closer and closer to finding the end 
of the quest and solving the adventure. 
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WHAT IS AN ADVENTURE GAME 



HOW TO PLAY 



SOME HINTS ON SOLVING 



ADVENTURES 



WRITING YOUR OWN GAME 




PLAYING ADVENTURES 



When you RUN an adventure you'll normally 
be told something about the world you find 
yourself in — it may be some exotic location on 
Earth, a planet far out in the galaxy, or in some 
total fantasy land. The game may take place in 
the past, present or future — or even a mixture 
of the three. You'll usually be told some 
helpful facts or background information, such 



as who rules the world, who you are (if you are 
playing a character role), something about 
your friends and enemies, and most import- 
antly, what you must do to solve the adven- 
ture, and/or win the game. Read the instruc- 
tions carefully because there's normally lots of 
important information. 

After that the first location description will 
appear. It will probably say something like this: 
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YOU ARE STANDING NEXT TO A VERY LARGE 

CAULDRON FULL TO THE BRIM WITH 

BUBBLING GREEN FLUID. THERE IS AN EVIL 

SMELL IN THE AIR. A SPOON LIES ON THE 

GROUND. 

YOU CAN GO EAST 

WEST 

NORTH 
WHAT NOW? 

You now have to decide what you want to do. 
Should you use the spoon to stir the fluid, or 
even try drinking some? Should you leave it 
alone? Or should you explore, looking for a 
bottle or a container for the green fluid so that 
you can carry some with you? 

Should you decide to use the spoon you 
need to type something like this: 

GET SPOON 



to which the computer will reply OK, or YOU 
CANNOT GET THE SPOON-YET!, or some other 
message. 

At each stage of the game, you must tell the 
computer exactly what you want to do. How 
you tell it depends on the game. Most games 
will expect you to type in your instructions to 
the computer as a verb followed by a noun — 
e.g. GET SPOON, STRANGLE ELEPHANT, 
UPROOT TREE and so on. 

More sophisticated games will accept whole 
sentences, but this is the exception rather than 
the rule. These kind of games allow you to say 
something like KILL THE STICK INSECT BY 
STEPPING ON IT WHILE SINGING 'ALL YOU 
NEED IS LOVE'. A program that will take 
instructions as complicated as this will have to 
be very complex in itself, and is well outside 
the scope of a beginner. 

Most adventures will understand — or even 



expect — shortened versions of words. For 
example, it is quite normal to type N instead of 
NORTH in an adventure. Using this type of 
abbreviation you can speed up the game and 
save memory space. 

Directions may not be just N, S, E, and W. 
You may have to go UP or DOWN, or even NE, 
SE, SW and NW. If the game doesn't tell you 
which directions are open to you, don't forget 
to try all possibilities. 

The normal pattern is that the world of the 
adventure is based on a grid of possible 
locations, usually in a square. What these 
locations represent is at the whim of the 
programmer — they may be rooms in a castle, 
or underground chambers in a mine. The link 
between the locations may be something obvi- 
ous, like a door or a path or a flight of stairs, or 
it may be more obscure — a river you have to 
swim, for example. 
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SOLVING ADVEMTURES 



There is normally only one solution to an 
adventure — collecting all the treasure and ta- 
king it to the Golden Gate, or slaughtering the 
Iron Maiden and escaping unscathed — and a 
fixed sequence of problems to solve. The odds 
are that you'll need many, many attempts 
before the adventure is finished. In fact, any 
adventure which doesn't take you days, weeks 
or even months of sweat isn't much good! 

There are some basic rules and hints that 
will help you to solve most adventures a little 
quicker. 

Almost without exception the objects you 
will find in adventures will have some use. It's 
a waste of memory on the part of the pro- 
grammer to plant too many complete red 
herrings — although beware that some objects 
may be 'double-edged swords'. For example, 
you might need to be carrying a bag of gold 
coins in order to pass over a toll bridge, but if 
you decided to swim the river, their weight 
would make you sink. In general, pick up as 
many objects as you can, but sometimes you'll 
find that you can carry only a certain number 
of objects. 

Most objects are usually needed only once 
in an adventure. An exception would be 
something like a sword which can be used 
many times for bumping off baddies. If you are 
limited in the number of objects that you can 
carry, bear in mind that it's usually safe to 
discard objects once they've been used. 

Always draw a map. Mark on it the room 
names, anything of interest about the room, 
any objects that are in the room, all the 
entrances and exits, and their directions. 

The map will save you a lot of time and 
effort when you are retracing your steps — 
something you'll have to do many times during 
a game. If you have to leave any objects behind 
because you can't carry everything, don't 
forget to mark their position on the map. Just 
as importantly, drawing a map will enable you 
to be sure of exploring the whole adventure — 
and, for that matter, will stop you sinking into 
the quicksand for the umpteenth time. 

Most games allow you to call for an inven- 
tory of the objects you're carrying. When 
confronted with a puzzle it's a good idea to see 
exactly what objects you have to hand by 
typing INVENTORY, INVE or simply I, depend- 
ing on the adventure. 

Similarly, some adventures allow you to ask 
for help — the formula depends again on the 
game. You may or may not get a helpful hint — 
more often than not you'll get something like 
NO HELP HERE. 

Some games follow the plot of a particular 
book very closely, and in that case studying the 



book in question is definitely a good idea. 
Other games have small sections or ideas 
which have been borrowed. If you think you 
recognise something, and cannot solve a parti- 
cular problem, try searching out the book. 
Similarly, if a mean-looking character with a 
huge chopper blocks your way and asks for the 
diameter of the Earth, don't guess, go and look 
the thing up! 

A further device much-used in adventure 
games is a selection of puns. Look out for 
them, everything may not be quite as it seems. 

It may also be a good idea to keep 
Thesaurus — or similar directory of 



synonyms — at hand so that you can try as 
many variations on a particular phrase as 
possible. The programmer might not have 
included POLISH as well as RUB, for example. 
And one last tip. If the adventure you are 
playing allows you to SAVE it part-way 
through, and you are about to attempt some- 
thing hazardous, then SAVE it before you try. 
If you do get killed, then you can simply 
continue from where you left off. It'll also 
allow you many attempts at, say, 
slaying a dragon, crossing a 
rickety bridge or escaping 
from a cavern. 
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WRITING ADVENTURES 



Writing adventures is a very good way of 
getting to grips with BASIC. Nearly all the 
important aspects of the language are 
utilised — string handling and slicing, the vari- 
ous forms of PRINT for screen formatting, 
variables, arrays and so on. 

Most commercial adventures are still writ- 
ten in BASIC because there's no real need for 
the speed of machine code. The real barrier 
against you producing absolutely top-quality 
games is your own imagination. 

Before you sit down to program your 
adventure, though, you will need to have a 
very clear idea of what you are going to do and 
what your adventure is about. The plot, 
puzzles, perils, and so on must all be pre- 
planned if you are to save yourself a lot of 
trouble. 

First, get yourself some paper and try- 
noting down some ideas. Don't worry if you 
haven't yet got a full vision of what an 
adventure game entails — what you need is an 
idea for a story, a location for the adventure, 
and some dastardly puzzles for the player to 
solve. As this part of Games Programming 
progresses you'll see how an idea for a game 
can be turned into an adventure program and 
learn how to adapt your own, original ideas. 

Be very careful with your chosen world. Try 
to make it as interesting as possible — you'd 
have to work very hard at making an adventure 
set in an office block at all enjoyable. 

You can look towards books, films, TV and 
plays or even news stories for inspiration. You 
can also borrow some ideas from other adven- 
tures, but probably the best source of inspir- 
ation is a slightly warped mind! Always aim for 
a theme or central idea, though, that you can 
develop throughout the adventure. 

Try to get the right balance between chal- 
lenge and impossibility. It's no good spending 
a lot of time and effort writing an adventure 
that everyone can solve within half an hour. 
Conversely, you won't make many friends if 
your adventure is totally impossible to solve. 
The basic rule is 'give the punters a chance' — 
but not too much!! 

Try not to leave too many empty rooms — 
locations — in your adventures. They do not 
really add anything to the adventure, and 
occupy vital memory space. Empty rooms also 
make for a boring adventure. 

Don't make your early adventures too com- 
plex because the problems of adventures can 
prove very difficult to debug until you have 
had some practice. Get to know what's invol- 
ved before you attempt anything very am- 
bitious. Keep an eye on how much memory 
there is remaining on your machine. 



In the adventure that you'll see building up 
in the later parts of INPUT there are lots of 
REM statements. In order to conserve memory 
in a large adventure, it's best to do without all 
of these,, although they make it easier to write 
the adventure in the first place. 

A further place for memory economies can 
be in the room descriptions. Don't make them 
too short, though, because you may lose all the 
flavour of the adventure. It's really up to you 
to strike the correct balance between flavour 
and space. 

Next week you'll see how to turn an idea for 
an adventure into a map and start on the 
adventure program. 
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How much memory do I need to 
write an adventure game? 

The short answer is 'as much as 
possible'. 

The adventure which builds up over 
the next issues of INPUT is very simple 
and occupies roughly 5K of BASIC; and 
you'll soon see that it's not of the best 
commercial standard. 

The best adventures have a very large 
number of rooms and puzzles and are 
difficult because of the cumulative effect 
of the problems. With a limited amount 
of memory you will be forced to set a 
smaller number of very much more 
difficult problems if the adventurer is not 
to solve the game immediately, and this is 
not really very satisfactory. 

A computer with 16K of 
memory would be the absolute 
minimum. 



;H0W MUCH MEMORY REMAINS: 



When you are writing a large adventure game, 
it is easy to find that you are pushing the limits 
of your machine's memory. Obviously, the 
problems of running out of memory are more 
acute in the case of machines with smaller 
memories — in fact, it could be a waste of time 
trying to write an adventure for a computer 
with less than 16K. 

For each of the machines there is a way of 
checking how much memory remains with just 
a simple routine. 



On the Spectrum, type: 

PRINT (PEEK 23730 + 256* PEEK 23731) 
- (PEEK 23653 + 256*PEEK 23654) 



This takes into account both the program itself 
and the variable storage. The best count of 
how much memory remains, therefore will be 
after the program has been RUN — if this is 
possible during program development. 
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On the Commodores, the remaining memory 
is obtained by typing: 

PRINT FRE(0) 

The remaining memory takes into account 
both the space occupied by the program and 
the space occupied by variables. The best way 
of finding out the exact amount of memory 
remaining is to RUN the program — if this is 
possible during development. 
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On the Acorn machines, the remaining mem- 
ory is obtained by typing: 

PRINT HIMEM- TOP 

This number only includes the space occupied 
by the program — variable space is not included 
so you will have to allow a little extra when 
estimating the size of your program. For the 
greatest amount of memory use Mode 7 on the 
BBC and Mode 6 on the Electron. 
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On the Dragon and Tandy, the remaining 
memory can be found by typing: 

PRINT MEM 

This takes into account the space occupied by 
the program, and space occupied by variables. 
So it's best to RUN the program during 
development, if that is possible, to get a true 
indication of the total memory used by the 
program. 

There is a very easy way of increasing the 
amount of memory available in the Dragon for 
your BASIC programs. Before you start pro- 
gramming, type in these two simple POKEs: 

POKE 25,6 
POKE 26,1 
NEW 

This gains you some 6K extra for your 
program because it fools the machine into 
putting the BASIC program into space norm- 
ally reserved for high resolution graphics — 
four ljK pages at switch-on. 

If you do use the POKEs, make sure that 
there are no graphics commands in your 
adventure. If there are, the program will 
become corrupted. 

When you SAVE the program, and want to 
LOAD it some time later, don't forget to POKE 
and NEW first. 
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SETTING UP AN ARRAY 



ENTERING THE DATA 



WRITING THE PROGRAMS 



EXTRACTING INFORMATION 



ADAPTING THE ARRAY 



If you've a lot of interrelated data 
the information can often be lost 
amongst all the figures. But put it 
into an array and the computer can 
pick out exactly what you want 

The article on page 152 showed how you can 
use an array to hold information within a 
program — a very useful tool indeed. But a two- 
dimensional array can often prove to be still 
more useful, because it is an extremely effec- 
tive way of storing a lot of interrelated data. 

The best model of a two-dimensional array 
is to think of it as a stack of pigeon holes on a 
wall, with each pigeonhole holding a single 
piece of data. This is a convenient way of 
storing data as you can easily refer to a 
particular element simply by pointing to its 
row and column. 



The array can store actual items — such as 
the screws below — where you can immediately 
point to the box containing 38mm screws made 
of brass, or whatever else you are looking for. 
In this case the data in the array is the number 
of screws in each box. The array can also hold 
abstract information such as the number of car 
dealers for each make of car in each country. 
Abstract information like this is often collected 
as the result of a survey and that is the basis of 
the program given in this article. However, the 
structure of the program is the same for any 
two-dimensional array — no matter what type 
of information it contains. 

As an example, say you were a teacher doing 
a survey of the pets kept by a group of 
children. You'd first write out a list of the 
children and then write down how many pets 
of each type they had. The list might look 
something like this: 



Sally: 2 budgies, 1 rabbit 
Jason: 1 dog, 4 goldfish 
Kevin: 2 hamsters, 1 cat 
Josie: 1 dog, 1 cat, 1 hamster 
Bert: 1 gerbil, 1 rabbit, 2 goldfish 

However, in a list like this it is rather difficult 
to extract information like "how many people 
keep cats" or "who has more than four pets" — 
and the bigger the list gets, the harder this 
becomes. 

A much better way would be to write out 
the information in the form of a table or chart 
with the names of the animals along the top 
and the children down the side. You may not 
have realised it but what you have just done is 
set up a two-dimensional array! 

1. Arrays are handy for sorting small 
items like these screws 
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In a small example like this it is fairly easy to 
work out the answers to any questions in your 
head. Where the computer comes in handy, 
though, is when you have lots of data. If you 
surveyed a whole class or even a whole school, 
for example, it would take you rather a long 
time to work out who had at least one cat or the 
names of all those who kept hamsters. But the 
computer could do it in seconds. 



SETTING UP THE ARRAY 



The next step is to put the information into the 
computer. If you look at pages 152-155 you'll 
see how to set up and use a simple one- 
dimensional array. Two-dimensional arrays 
are very similar and only involve a little more 
work to set them up. 

A simple array can be written in the form 
A(N), where N is the number of elements in 
the array. A two-dimensional array is written 
as A(R,C), where R is the number of rows and 
C is the number of columns. Actually, it 
doesn't matter if you write it as A(C,R) with 
the columns before the rows. But you must be 
consistent and stick to either one or the other. 

Now, even with a two-dimensional array, 
you'll usually want to set up two simple arrays 
to hold the heading for the columns and the 
rows — in our case one array holds the names of 
the children and another holds the names of 
the pets. The two-dimensional array itself is 
used to hold the data. 

Lets call the first two arrays PET$(C) and 
CH$(R) and the data array N(R,C). The other 
array, PT(R), holds the total number of pets in 
each row. On the Spectrum the arrays are 
labelled p$(c), c$(r), n(r,c) and p(r) since only 
single-letter names are allowed. The program 
will not work on the ZX81 because of the 
difficulty of entering all the data. 

Here's the program to DIMension the arrays 
and READ in the DATA: 



READ PET$(J): NEXT 
READ CH$(J): NEXT 



100 C = 7: R = 5 

110DIMPET$(C),CH$(R), N(R,C), 

PT(R) 
120 FOR J = 1 TO C 
130 FOR J = 1 TOR: 
140 FOR J = 1 TOR 
150 FOR K = 1 TOC 
160 READ N(J,K): NEXT K: NEXT J 
3000 DATA BUDGIE,CAT,DOG,FISH, 

GERBIL,HAMSTER,RABBIT 
3010 DATA SALLY,JASON,KEVIN, 

JOSIE,BERT 
3020 DATA2,0,0,0,0,0,1 
3030 DATA0,0,1, 4,0,0,0 
3040 DATA0,1, 0,0,0,2,0 
3050 DATA0,1, 1,0,0,1,0 
3060 DATA0,0,0,2,1, 0,1 





2. The beads are most conveniently ar- 
ranged in rows of the same colour and 
also in columns containing the same size 



100LETc = 7:LETr = 5 

110 DIM p$(c,7): DIM c$(r,5): DIM 

n(r,e): DIM p(r) 
120 FOR j = 1 TO c: READ p$(j): NEXT j 
130 FOR j = 1 TO r: READ c$0): NEXT j 
140 FOR j = 1 TOr 
150 FOR k = 1 TO c 
160 READ n(j,k): NEXT k: NEXT j 
3000 DATA "BUDGIE", "CAT", "DOG", 

"FISH","GERBIL","HAMSTER", 

"RABBIT" 
3010 DATA "SALLY'7'JASON'Y'KEVIN", 

"JOSIE'V'BERT" 
3020 DATA 2,0,0,0,0,0,1 
3030 DATA 0,0,1,4,0,0,0 
3040 DATA 0,1,0,0,0,2,0 
3050 DATA 0,1 ,1,0,0,1,0 
3060 DATA 0,0,0,2,1 ,0,1 

The variables R and C were used to make it 
easier for you to adapt the program — after all, 
it's unlikely that your own survey will have the 
same number of rows and columns as this one. 
This way all you have to do is change the 
numbers in Line 100, and the information in 
the DATA lines of course. 

Notice how the data is entered. There's one 
line for the headings to the columns, another 
for the headings to the rows then one line for 
each row of the central array. Also note that 
you must enter one item of data for each space 
in the array even if it's zero, or the computer 
will respond with an error message. 

Now that the data is inside the computer 
you must decide what you want to do with it. 
You may as well give yourself as many options 
as possible, after all, it is the computer that's 
going to be doing all the work, not you. 



THE MENU 



It's best to write out the options in the form of 
a menu. And for the pets survey you'll prob- 
ably want the following: 



300 LET found = 0: CLS 
310 PRINT ""MENU" 
320 PRINT '"1 LIST PETS" 
330 PRINT "2 LIST CHILDREN" 
340 PRINT "3 ENTER TYPE OF PET" 
350 PRINT "4 ENTER NAME OF 

CHILD" 
360 PRINT "5 ENTER NUMBER 

OF PETS" 
370 PRINT "6 DISPLAY ARRAY" 
380 PRINT ""CHOOSE OPTION" 



390 INPUT a 

395IFa<1 OR a>6 THEN GOTO 390 

400 CLS 

410 GOSUB (a*100 + 400) 

420 GOTO 300 
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300 FOUND = 0:PRINT"n" 
310 PRINT "MENUH" 
320 PRINT "1 LIST PETS" 
330 PRINT "2 LIST CHILDREN" 
340 PRINT "3 ENTER TYPE OF PET" 
350 PRINT "4 ENTER NAME OF 

CHILD" 
360 PRINT "5 ENTER NUMBER OF PETS" 
370 PRINT "6 DISPLAY ARRAY" 
380 PRINT "gJCHOOSE OPTION" 
390 INPUT A 

395IFA<1 OR A> 6 THEN GOTO 390 
400 PRINT "□" 
410 ON A GOSUB 500,600,700,800, 

900,1000 
420 GOTO 300 



300FOUND = 0:CLS 
310PRINT""MENU" 
320 PRINT'"1 LIST PETS" 
330 PRINT "2 LIST CHILDREN" 
340 PRINT "3 ENTER TYPE OF PET" 
350 PRINT "4 ENTER NAME OF 

CHILD" 
360 PRINT "5 ENTER NUMBER OF PETS" 
370 PRINT "6 DISPLAY ARRAY" 
380 PRINT""CHOOSE OPTION" 
390 INPUT A 

395 IF A< 1 OR A>6 THEN 390 
400 CLS 
410 ON A GOSUB 500,600,700,800, 

900,1000 
420 GOTO 300 
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300 FOUND = 0:CLS 
310PRINT@45,"MENU" 
320PRINT@100,"1 LIST PETS" 
330 PRINT@132,"2 LIST CHILDREN" 
340 PRINT@164,"3 ENTER 

TYPE OF PET" 
350 PRINT@196,"4 ENTER NAME OF 

CHILD" 
360 PRINT@228,"5 ENTER NUMBER 

OF PETS" 
370 PRINT@260,"6 DISPLAY ARRAY" 
380 PRINT:PRINT"CHOOSE OPTION "; 
390 INPUT A 

395 IF A< 1 OR A>6 THEN 390 
400 CLS 
410 ON A GOSUB 500,600,700,800, 

900,1000 
420 GOTO 300 



WRITING THE SUBROUTINES 



This, at least, will do for a start although you 
can always add some more options later on. 

The first option simply prints out the list of 
pets by looping through the array PET$() or 
p$(). And the second option does much the 
same for the list of children. 



499 REM "OPTION 1" 

500 PRINT ""LIST OF PETS" 
510 PRINT " 

520 F0Rj = 1 TOc 

530 PRINT p$(j) 

540 N EXT j 

550 PRINT ""PRESS A KEY TO RETURN 

TO MENU" 
560 PAUSE 
570 RETURN 

599 REM "OPTION 2** 

600 PRINT ""LIST OF CHILDREN" 
610 PRINT" 

620 FOR j = 1 TO r 

630 PRINT c$Q) 

640 NEXT | 

650 PRINT ""PRESS A KEY TO RETURN 

TO MENU" 
660 PAUSE 
670 RETURN 
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499 REM # # OPTION 1 # # 

500 PRINT "LIST OF PETS" 
510 PRINT 

520 FOR J = 1 TOC 
530 PRINT PET$(J) 
540 NEXT J 
550PRINT"B]PRESSAKEYTO 

RETURN TO MENU" 
560 GET A$:IFA$ = "" THEN 560 
570 RETURN 

599 REM # # OPTION 2 # # 

600 PRINT "LIST OF CHILDREN" 
610 PRINT 

620 FOR J = 1 TOR 
630 PRINT CH$(J) 
640 NEXT J 
650PRINT"HPRESSAKEYTO 

RETURN TO MENU" 
660 GET A$:IFA$ = "" THEN 660 
670 RETURN 



499 REM"OPTION 1" 

500 PRINT""LIST OF PETS" 
510 PRINT" 

520 FOR J = 1 TOC 
530 PRINT PET$(J) 
540 NEXT 



550 PRINT""PRESS A KEY TO RETURN 

TO MENU" 
560 A= GET 
570 RETURN 

599 REM"OPTION 2" 

600 PRINT""UST OF CHILDREN" 
610 PRINT" 

620 FOR J = 1 TO R 

630 PRINT CH$(J) 

640 NEXT 

650 PRINT""PRESS A KEY TO RETURN 

TO MENU" 
660A=GET 
670 RETURN 
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499 REM "OPTION 1" 

500 PRINT@99,"LIST OF PETS" 
510 PRINT: PRINT 
520 FOR J = 1 TOC 
530 PRINT PET$(J) 
540 NEXT 
550 PRINT:PRINT"PRESS A KEY TO 

RETURN TO MENU" 
560 IF INKEY$ = "" THEN 560 
570 RETURN 

599 REM "OPTION 2" 

600 PRINT@99,"LIST OF CHILDREN' 
610 PRINTPRINT 
620 FOR J = 1 TOR 
630 PRINT CH$(J) 
640 NEXT 
650 PRINT:PRINT"PRESS A KEY TO 

RETURN TO MENU" 
660 IF INKEY$ = "" THEN 660 
670 RETURN 



Option three is more interesting. If you type in 
the name of a pet, the computer prints out a list 
of everybody who has at least one of those pets, 
and also tells you how many they have: 



699 REM "OPTION 3" 

700 PRINT ""ENTER TYPE OF PET" 
705 DIM i${7): INPUT LINE i$ 
710 PRINT '"PEOPLE WHO HAVE AD";i$ 
720 FOR j = 1 TO c 
730 IF p$(j} = i$ THEN LET found =j 
740 NEXT j 
750 IF found = THEN PRINT "PET NOT 

FOUND. TRY AGAIN": GOTO 
760 FOR j = 1 TOr 
770IFn(j,found)>0THENPRIN- 

c$(j);"LT'in(b found) 
775 NEXT j ^^^ 
780 PRINT ""PRESS A KEY TO RETURN 

TO MENU" 
785 PAUSE 
790 RETURN 
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699 REM # # OPTION 3 # # 

700 PRINT "ENTER TYPE OF PET" 
705 PRINT "THIS LISTS EVERYONE 

WHO HAS A" 
710 INPUT P$ 
715 PRINT 
720 FOR J = 1 TOC 
730 IF PET$(J) = P$ THEN FOUND = J 
740 NEXT J 
750 IF FOUND = THEN PRINT "PET 

NOT FOUND. TRY AGAIN":GOTO 700 
760 FOR J = 1 TOR 
770 IF N(J,FOUND)>0 THEN PRINT 

CH$(J);"D";N(J,FOUND) 
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3. In this array you can see 
at a glance how many car 
dealers there are in each 
country for each make 
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775 NEXT J 
780PRINT"HPRESSAKEYTO 

RETURN TO MENU" 
785 GET A$:IF A$ = "" THEN 785 

790 RETURN 
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699 REM**0PTI0N 3 

700 PRINT""ENTER TYPI 
705 PRINT "THIS LISTS E\ 

WHO HAS A" 



710 INPUT P$ 

715 PRINT" 

720FORJ = 1TOC 

730 IF PET$(J) = P$ THEN FOUND = J 

740 NEXT 

750 IF FOUND = PRINT "PET NOT 

FOUND. TRY AGAIN":GOTO 700 
760 FOR J = 1 TOR 
770 IF N(J,FOUND)>0 PRINT 

CH$(J);"D";N(J,FOUND) 
775 NEXT 



780 PRINT""PRESS A KEY TO RETURN 

TO MENU" 
785 A = GET 
790 RETURN 
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699 REM "OPTION 3** 

700 PRINT@99,"ENTER TYPE OF PET" 
705 PRINT "THIS LISTS EVERYONE 

WHO HAS AD"; 
710 INPUT P$ 
715 PRINT:PRINT 
720 FOR J = 1 TOC 
730 IF PET$(J) = P$THEN FOUND = J 
740 NEXT 
750 IF FOUND = THEN PRINT "PET NOT 

FOUND. TRY AGAIN":GOTO 700 
.760 FOR J = 1 TOR 
70 IF N(J,FOUND)>0 THEN PRINT 
CH$(J);"D";N(J,FOUND) 
775 NEXT 

780 PRINT:PRINT"PRESS ANY KEY TO 
RETURN TO MENU" 
785 IF INKEY$ = "" THEN 785 
790 RETURN 

This routine is more complicated, 

so it's worth explaining in more 

detail. 

Line 710 stores your input in 

the variable P$ (i$ on the 

Spectrum). Let's say, for 

example, that you input 

"CAT", so P$ = "CAT" 

(or i$ = "CAT"). Lines 720 

to 740 then loop through 

the whole list of pets 

looking for one called 

CAT. If it's found the 

variable FOUND is set 

to the column number 

it was found in. In our 

case FOUND = 2 because 

CAT is in column 2. 

y the time the computer gets to Line 750, 

ifFOUNDequals zero (it was set to zero by Line 

300) then the animal you requested was not in 

the list and you are given another go. 

Lines 760 to 775 now loop through each 
element in column 2. If any element is greater 
than zero it means the person in that row has a 
cat so their name is printed out along with how 
many cats they have. 

Look at the program and see if you can 
follow what the computer is doing at each step. 
Option four allows you to enter the name of 
a person to see a list of all their pets. It works in 
almost exactly the same way as the last routine 
except that this time the computer looks along 
a particular row of the array, rather than down 
a column as before. 



799 REM "OPTION 4" 

800 PRINT ""ENTER NAME OF CHILD" 
805 DIM f$(5): INPUT LINE f$ 

810 PRINT "PETS BELONGING 

TO ";f$ 
815 PRINT" 
820 FOR j = 1 TO r 
830 IF c$(j) = f$ THEN LET found = j 
840 N EXT j 
850 IF found = THEN PRINT 

""PERSON NOT FOUND. TRY AGAIN": 

GOTO 800 
860 FOR j = 1 TOc 
870 IF n(found,j)>0 THEN PRINT 

n(found,j);"D";p$(j) 
875 NEXTj 
880 PRINT ""PRESS A KEY TO RETURN 

TO MENU" 
885 PAUSE 
890 RETURN 
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799 REM # # OPTION 4 # # 

800 PRINT "ENTER NAME OF CHILD" 
805 PRINT "THIS LISTS ALL PETS 

BELONGING TO" 
810 INPUT F$ 
815 PRINT 
820 FOR J = 1 TOR 
830 IFCH$(J) = F$ THEN FOUND = J 
840 NEXT J 
850 IF FOUND = THEN PRINT 

"PERSON NOT FOUND. TRY AGAIN" 

GOTO 800 
860 FOR J = 1 TO C 
870IFN(FOUND,J)>0THEN 

PRINT;N(FQUND,J);" □ ";PET$(J) 
875 NEXTJ 
880 PRINT "PRESS A KEY TO 

RETURN TO MENU" 
885 GET A$:IFA$ = "" THEN 885 
890 RETURN 



799 REM"OPTION 4" 

800 PRINT-CENTER NAME OF CHILD" 
805 PRINT "THIS LISTS ALL PETS 

BELONGING TO" 
810 INPUT F$ 
815 PRINT" 
820 FOR J = 1 TOR 
830IFCH$(J) = F$THENFOUND=J 
840 NEXT 
850 IF FOUND = PRINT""PERSON 

NOT FOUND. TRY AGAIN": 

GOTO 800 
860 FOR J = 1 TOC 
870IFN(FOUND,J)>0 PRINT;N 

(FOUND,J);"n";PET$(J) 



875 NEXT 

880 PRINT""PRESS A KEY TO RETURN 

TO MENU" 
885 A = GET 
890 RETURN 
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799 REM "OPTION 4" 

800 PRINT@99,"ENTER NAME OF A 
CHILD" 

805 PRINT "THIS LISTS ALL PETS 

BELONGING TO "; 
810 INPUT F$ 
815 PRINT: PRINT 
820 FOR J = 1 TO R 
830IFCH$(J) = F$THENFOUND = J 
840 NEXT 
850 IF FOUND = THEN PR I NT: PRINT 

"PERSON NOT FOUND. TRY AGAIN": 

GOTO 800 
860 FOR J = 1 TO C 
870 IF N(FOUND,J) > THEN PRINT 

N(FOUND,J);"D";PET$(J) 
875 NEXT 
880 PRINT:PRINT"PRESS A KEY 

TO RETURN TO MENU" 
885 IF INKEY$ = "" THEN 885 
890 RETURN 

Option 5 asks you to enter a number then it 
prints out a list of everyone who has at least 
that many pets. It also tells you how many they 
have. So type in the next subroutine now: 



899 REM "OPTION 5" 

900 PRINT '"ENTER A NUMBER TO LIST 
EVERYONE WITH AT LEAST THAT 
MANY PETS" 

910 INPUT a 

915 PRINT" 

920 FOR j = 1 TO r 

925 FOR k = 1 TOc 

930LETp(j) = p(j) + n(j,k) 

935 NEXT k 

940 IF p(j)>=a THEN PRINT c$(j); 

"D";p(j): LET found = 1 
945LETp(j) = 
950 NEXTj 
955 IF found = THEN PRINT 

""NO-ONE HASD";a;"DOR 

MORE PETS" 
960 PRINT ""PRESS A KEY TO RETURN 

TO MENU" 
970 PAUSE 
980 RETURN 



EVERYONE WITH AT LEAST THAT 
MANY PETS" 

910 INPUT A 

915 PRINT 

920 FOR J = 1 TOR 

925 FOR K = 1 TOC 

930PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF PT(J}> =A THEN PRINT 
CH$(J);"D";PT$:FOUND = 1 

945PT(J) = 

950 NEXT J 

955 IF FOUND = THEN PRINT "NO- 
ONE HAS";A;"OR MORE PETS" 

960PRINT"HPRESSAKEYTO 
RETURN TO MENU" 

970 GET A$:IFA$ = "" THEN 970 

980 RETURN 



899 REM"OPTION 5" 

900 PRINT'"ENTER A NUMBER TO LIST 
EVERYONE'""WITH AT LEAST THAT 
MANY PETS" 

910 INPUT A 

915 PRINT" 

920 FOR J = 1 TO R 

925 FOR K=1 TOC 

930PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF PT(J)> =ATHEN PRINT 

CH$(J);"D";PT(J): FOUND = 1 
945 PT(J) = 
950 NEXT J 
955 IF FOUND = PRINT" 

"NO-ONE HASD";A;"nOR 

MORE PETS" 
960 PRINT""PRESS A KEY TO RETURN 

TO MENU" 
970 A = GET 
980 RETURN 
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899 REM # # OPTION 5 # # 

900 PRINT "ENTER A NUMBER TO LIST 



899 REM "OPTION 5" 

900 PRINT@64,"ENTER A NUMBER TO 
LIST EVERYONE WITH AT LEAST 
THAT MANY PETS" 

910 INPUT A 

915PRINT:PRINT 

920 FOR J = 1 TOR 

925 FOR K=1 TOC 

930PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF PT(J)> =ATHEN PRINT 

CH$(J);"D";PT(J):FOUND = 1 
945 PT(J) = 
950 NEXT J 
955 IF FOUND = THEN PRINT:PRINT 

"NO-ONE HAS";A;"OR 

MORE PETS" 
960 PRINT:PRINT"PRESS A KEY TO 



RETURN TO MENU" 
970IFINKEY$ = "" THEN 970 
980 RETURN 




What are the problems of nested 
loops? 

Setting up an array gives you good practice 
with IF ... THEN statements and FOR ... 
NEXT loops. (See how many you can count 
in the pets survey program — there are quite 
a lot.) But the trickiest parts of an array are 
the nested FOR . . . NEXT loops as it is very 
easy to get the rows and columns mixed up. 

Have a look at the lines that read in the 
data for the array. These are in the first part 
of the program on pages 270 and 271. 

Each line of DATA corresponds to a row 
of the array, so the loop to read in the rows 
is the outside one. 

If the line of DATA held a column from 
the array then the loop for the columns 
would be the outside one. 

This is so whether the array is written as 
N(R,C) or N(C,R). The order of the sub- 
scripts C and R doesn't matter at all except 
that it must be consistent throughout the 
program. 

The headings for the rows and 
columns are set up with separate 
loops so you shouldn't have 
any trouble with these. 



Before the computer can compare the number 
you type in with the totals for each child, it first 
has to work out what those totals are. Lines 
920 and 925 set up the loops to loop through 
the rows and columns of the array while Line 
930 works out the total number of pets in each 
row. The totals are stored in an array called 
PT() or, on the Spectrum, p(). If the total for 
any row is greater than or equal to the number 
you typed in then the name of the child is 
printed out, along with the number of pets 
they own. 

As soon as someone's name is printed the 
FOUND flag is set to one. If FOUND is still equal 
to zero when the computer gets to Line 955 
then it means no-one has that many pets and 
the computer prints out a message to tell you 
so. 

The last option — option 6 — displays the 
array on the screen, It is rather difficult to fit in 
all the names of the pets across the top of the 
chart, so the program prints out numbers 
instead. It does, however, print out the names 
of the owners. 



999 REM "OPTION 6** 

1000 PRINT '"CHILDREN"," PETS" 
1010 PRINT 'TAB 9; 

1015 FOR j = 1 TOc 

1020 PRINT j;"DD"; 

1025 N EXT j: PRINT 

1030 FOR j = 1 TO r 

1035 PRINT 'c$G);TAB 9; 

1040 FOR k = 1 TOc 

1050 PRINT n(j,k);"DrJ"; 

1060 NEXT k 

1065 NEXTj 

1070 PRINT ""PRESS A KEY TO RETURN 

TO MENU" 
1080 PAUSE 
1090 RETURN 



999 REM ## OPTION 6## 

1000 PRINT "CHILDRENV'PETSH' 
1010 PRINT TAB(6); 

1015 FOR J = 1 TOC 

1020 PRINT J;SPC(2); 

1025 NEXT LPRINT 

1030 FOR J = 1 TOR 

1035 PRINT CH$(J);TAB(6); 

1040 FOR K = 1 TOC 

1050 PRINT N(J,K);SPC(2); 

1060 NEXT K:PRINT:NEXT J 

1070PRINT"HPRESSAKEYTO 

RETURN TO MENU" 
1 080 GET A$:IF A$ = "" THEN 1 080 
1090 RETURN 
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You'll need to make two changes to the 
Commodore 64 program to allow the display 
to fit on the Vic 20 screen: 

1020 PRINT J; 
1050 PRINT N(J,K); 

The routine starts out by printing the main 
headings "CHILDREN" and "PETS", then 
numbers the pets from 1 to 7. (You'll have to 
change the spacing in Lines 1020 and 1050 if 
you have more or less than 7 columns in your 
own survey.) The next few lines print out the 
array a row at a time, with the name of the 
child at the left then the number of pets in each 
of the columns. 



999 REM "OPTION 6** 
1000PRINT'"CHILDREN" 

"PETS" 
1010 PRINT'TAB(9); 
1015 FOR J = 1 TOC 
1020PRINT;J;SPC(4); 
1025 NEXT 



1030 FOR J = 1 TOR 

1035 PRINT CH$(J);TAB(9); 

1040 FOR K=1 TOC 

1050PRINT;N{J,K};SPC(4); 

1060 NEXT K,J 

1070 PRINT""PRESS A KEY TO RETURN 

TO MENU" 
1080 A= GET 
1090 RETURN 

nan 

999 REM "OPTION 6" 

1 000 PR!NT@32,"CHILDREN","PETS" 
1010PRINT@72,; 

1015 FOR J = 1 TOC 

1020PRINTJ; 

1025NEXTPRINT 

1030 FOR J = 1 TOR 

1035PRINT:PRINTCH$(J)TAB(8); 

1040 FOR K = 1 TO C 

1050 PRINT N(J,K); 

1060 NEXT K, J 

1070 PRINT:PRINT:PRINT"PRESS ANY 

KEY TO RETURN TO MENU" 
1080 IF INKEY$ = "" THEN 1080 
1090 RETURN 



ADAPTING THE ARRAY 



An array used like this is sometimes called a 
database. You can create a database for all sorts 
of subjects — you could use one for a wildlife 
survey for example. This could show animals 
and birds you spotted and the type of habitat 
you found them in. The names of the animals 
would go along one side of the array and the 
habitats along the other. If you then filled in an 
array at different times of the year or in 
different parts of the country you could see 
how the distribution of the species varied. 

Another use would be for a traffic survey, to 
see which vehicles used a road at different 
times of the day. Or you could set up a foods 
database showing how much fats, carbohy- 
drate, protein and calories were in different 
types of foods. With this one you could print 
out all foods containing more than a certain 
amount of protein or less than so many 
calories, or the composition of a particular 
food. 

A more immediate use of arrays is to keep 
track of stock in a warehouse or shop. In this 
case the rows and columns of the array refer to 
actual shelves and positions in a storeroom, 
and the data relates to the numbers of each 
item in stock. The computer program can then 
be designed to update the records as items are 
sold or stock replaced and it can print out re- 
order messages when numbers fall below a 
certain minimum amount. 

You're sure to be able to think up a use to 
suit your own hobby, business or interest. 
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FINDING A PLACE FOR 



MACHINE CODE 



MACHINE CODE MONITORS 



USING THE MONITOR 



RUNNING A PROGRAM 



When you switch on your machine it 
automatically goes into BASIC. So 
you must use a BASIC program to 
POKE in your machine code program 
and a BASIC command to run it 
When you enter the wonderful world of 
machine code programming you run into a 
number of strange paradoxes. Although ma- 
chine code is the language the microprocessor 
itself uses, you cannot feed it directly into your 
home computer. It must be entered by another 
program — which on your micro means using 
BASIC. Nor can you simply run a machine 
code program using a machine code command. 
You have to call it out of a BASIC program or 
by using a BASIC instruction. 

To enter a machine code routine, you have 
to POKE it byte-by-byte into the computer's 
memory. Ironically, on the Spectrum, ZX81 
and Commodores you cannot POKE a hex 
number, only a decimal one. So the hex 
numbers of your machine code routine have to 
be converted back into decimal before they can 
be entered. 

The Dragon and Tandy allow you to POKE 
hex numbers, so this problem does not arise. 
And as the BBC Micro and the Electron have 
built-in assemblers, Acorn owners will have no 
interest in entering machine code and can skip 
direct to forthcoming chapters on assembly 
language. 



WHERE TO PUT IT 



Before you enter a machine code program, you 
have to decide where you are going to put it. 
This is a very important task. Obviously you 
must not put it in an area that the computer 
itself uses, otherwise your program will either 
be overwritten by fresh data from ROM, or the 
computer will fail to function because you have 
overwritten vital data. 

You must be wary when using the BASIC 
area too. As your machine code routine may be 
called out of a BASIC program, your machine 
code could be overwritten while the BASIC 
program is RUNning, causing the whole thing 
to crash. 

With small programs you can use areas like 
the cassette buffer, provided you are not going 
to use the cassette player. 



In the Spectrum you can use the user-defined 
graphics area — between FF58 and FFFF in 
the 48K model — provided no UDGs are being 
used. But usually, machine code programs are 
tucked between the UDG area and the end of 
the BASIC area by moving RAMTOP down 
the memory. 

This way the BASIC area is squeezed, but 
as it can't extend past RAMTOP, the machine 
code is protected from overwriting. 

RAMTOP is a system variable and its 
position is given by the pointer in memory 
locations 5CB2 and 5CB3. To move the 
RAMTOP down you could just POKE a lower 
value into these two locations. But the Spec- 
trum has another BASIC command, CLEAR. 
This does essentially the same thing and 
should be followed by the decimal address of 
the place you want the RAMTOP dropped to. 

CLEAR clears the display file — like a CLS 
does — and also all the variables. It resets the 
PLOT position to 0, 0— that is the bottom 
left, restores the DATA pointer to the start, 
clears out the GOSUB stack and places it 
under the new value for RAMTOP. 
On a 16K Spectrum the usual command is: 

CLEAR 31999 

This moves RAMTOP down to 31,999 or 
7CFF hex, leaving the 600 bytes above it — 
that is up to the end of the UDG area at 
32,600 — protected for machine code 
programs. 

On the 48K model, the usual command is: 

CLEAR 63999 

Again this drops RAMTOP so that, this time, 
the BASIC area finishes at 63,999 or F9999 in 
hex and means that you can start your machine 
code program at 64,000 or FA00. 

For most purposes this will leave more than 
enough room for your machine code programs. 
In fact you needn't leave quite so much room, 
but it is always better to leave a little more 
space than you need in case you want to amend 
or expand your program later. 

With longer machine code programs you 
may have to drop RAMTOP further. You can 
CLEAR all the way down to 23,821. But in 
practise doing this would be no good to you 



because with RAMTOP so low there is no 
room even to enter a line of BASIC. 



On the ZX81 it is possible to drop RAMTOP 
by POKEing memory locations 16,388 and 
16,389 to give a protected area where your 
machine code programs cannot be overwritten. 
But the problem with this approach is that you 
can't SAVE programs in that area. 

Short machine code programs — less than 32 
bytes — can be POKEd into the printer buffer, 
which occupies memory locations 16,444 to 
16,476, provided no printer is being used. 
There are other small areas which you can 
POKE your machine code programs into but, 
again, you won't be able to SAVE them. On the 
ZX81 you can only SAVE programs in the 
BASIC program area. 

There are three ways you can put your 
machine code program into the BASIC area 
and still protect them against overwriting. You 
can enter them as REM statements, arrays or 
character strings. In general you'll find that 
the first method is the best. 

To enter a machine code program as a REM 
statement you must work out how long it is — 
that is, count the bytes. Then on the first line 
of your BASIC program type REM followed by 
a number of full stops, say — the number of full 
stops must be at least equal to the number of 
bytes in your machine code program. In fact 
you don't have to choose full stops, as any 
character will do to fill out the REM 
statement — but it is best to keep them all the 
same so that you can spot the end of your 
machine code program in memory. 

You then POKE your machine code program 
into the memory locations occupied by the 
REM statement, a byte at a time. If your REM 
statement is the first line of your BASIC 
program the area cleared begins at memory 
location 16,514. 

Another way to create protected space is to 
dimension an array. The BASIC line: 

10 DIM A(100) 

will give 500 free memory locations in the 
variables area — for each element of the array 
the ZX8 1 leaves five free locations to store float- 
ing point numbers. To find out where you 
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should begin storing your machine code in this 
case you have to PEEK at the system variable 
VARS, which is located in 16,400 and 16,401, 
with a direct mode command like: 

PRINT PEEK 16400 + PEEK 16401 +6 

This gives the start address of the protected 
area you have created — the extra six memory 
locations contain details of the array. You 
should POKE your machine code program in 
byte by byte from here. 

Another variation is to create space in a 
string with a BASIC line like: 

10 LET SS = " ...." 



with more full stops than the number of bytes 
in the machine code program. Again, this 
protected space appears at the beginning of the 
variables area in memory. And to find the start 
address you PEEK VARS and add six. The six 
extra memory locations in this case carry the 
name of the string. 

The problem with these two last methods is 
that the variables area is CLEARed if you hit the 
I CLEAR | key or RUN a BASIC program, and you 
will lose your machine code program. 
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On the Commodore 64, the memory area from 
C000 to CFFF in hex, or 49,152 to 53,247 
decimal, is reserved for machine code and 
normally this area is as much as you will need 
for your machine code routines. The Vic 20 
has no reserved area. 

Small programs — less than 191 bytes long — 
can be stored in the tape buffer on the 64 and 
the Vic, provided you're not intending to use 
your cassette recorder. The tape buffer is 
located between 033C to 03FB in hex, or 828 
to 1,019 in decimal. 

But if more space is required you can limit 
the BASIC area and leave a protected area 
above it — the same way the CLEAR command 
works on the other machines. On the Commo- 
dore 64 this is performed by POKEing 52 and 
56 with, say, 32. This clears down to 8,192 
which gives 32,768 bytes that cannot be 
overwritten by BASIC for machine code 
routines, and leaves around 6,144 bytes for 
BASIC programs. 

After you have done this you must type in 
CLR — that is type in the letters C, L and R 
separately. Don't just press the CLR key or any 
program you have in the BASIC area is liable 
to become confused. 

Memory locations 52 and 56 are the high 
bytes of the two points that specify the top of 
the BASIC area. The low bytes, 5 1 and 55, are 
usually 0. So 52 and 56 specify which page 
BASIC ends on. And if you POKE them with 
32, you shift the pointer to 32 x 256, or 8,192. 



You can close the BASIC area down com- 
pletely by POKEing 52 and 56 with 8— this 
takes the top of BASIC down to 2,048 which is 
the bottom of the BASIC area. You can even 
POKE 52 and 56 with 0! But in either case the 
Commodore will then be no good to you as you 
won't be able to enter any BASIC and thus it 
would be impossible to call any machine code 
routines. 

You can also move the bottom of the 
BASIC area up and protect your machine code 
routines by tucking them in underneath. This 
is done by POKEing memory locations 43 and 
44. These are the low and high bytes of the 
pointers that specify the bottom of the BASIC 
area. Again you could move up the bottom of 
BASIC to 8,192 by POKEing location 43 with 1 
and location 44 with 32. You'll also have to 
POKE the new start of BASIC— location 
8192 — with zero. This will leave plenty of 
room for machine code routines below and 
BASIC above. 

After you have done this you must type in 
NEW, otherwise any program you have in the 
BASIC area will become confused and crash. 

On the Vic, the amount you can lower 
RAMTOP depends on how much the memory 
has been expanded. PEEK 44 to see where the 
bottom of the BASIC area is, then POKE 52 and 
56 with that number, plus 1 or 2, to allow space 
for a little bit of BASIC. 
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The easiest way to protect machine code 
programs is to use the computer's CLEAR 
command, which moves down RAMTOP and 
leaves a space above it for your machine code 
program which will be protected from 
overwriting in BASIC. It also sets all numeric 
variables to and string variables to null 
strings. The command usually takes the form: 

CLEAR 200,30000 

This moves RAMTOP down from &H7FFF, 
or 32,767 in decimal, to 30,000, leaving 2,767 
bytes free for machine code programs. 

On these computers the CLEAR command 
has another, separate, unrelated function — the 
assigning of string space. How much string 
space is reserved is given by the first number 
after the CLEAR. The computer automatically 
sets aside 200 bytes under RAMTOP for 
strings when you turn the machine on. This is 
sufficient for most purposes, so when you 
artificially lower RAMTOP you might as well 
leave the same amount— 200 bytes — below it 
for strings. 

You can drop RAMTOP almost as far as the 
top of the graphics area — though the machine 
will need a little BASIC space to execute the 
command. On the Dragon and Tandy the top 



of the graphics area itself can be shifted using 
the instruction PCLEAR. 

PCLEAR 1 will leave only one of the graphics 
pages — so you can CLEAR down to &HC40. 
say, PCLEAR 8 assigns all eight graphics pages 
so you would only be able to clear down to 
&H3680. If you don't use the command 
CLEAR, the computer will automatically assign 
four graphics pages, so you will be able to 
CLEAR down as far as &H1E80. 

These limits depend very much on what is 
in the machine at the time. If there is any sort 
of BASIC program on board, you are likely to 
get an out-of memory error message. So for all 
practical purposes, working this close to the 
limit is no good to you, as you would have to 
enter a BASIC program at some point from 
which to CALL your machine code program. 

It is unlikely that you have to CLEAR further 
than 30,000. This will give you, 2,767 bytes 
free. If you want to start your machine code 
program at a nice round number like 30,000, 
you should type in: 

CLEAR 200,29999 

The second number, following the comma, 
after the word CLEAR specifies the highest 
address available to BASIC programs, so the 
locations safe for machine code programs start 
from the one above. 



MACHINE CODE MONITORS 



The following programs allow you to key in 
machine code, SAVE machine code programs 
on tape and examine them in memory. The 
appropriate CLEAR command must be given 
before you enter the program. Once you have 
done that, entered the program and RUN it you 
will be asked to supply a start address. With 
the Spectrum , ZX81, Tandy and Dragon this 
should be the memory address above the one 
you have CLEARed down to. Remember that 
the CLEAR command specifies the last address 
of BASIC, and the location above it is where 
your machine code program should begin. 

With the Commodore you should begin 
your program at C000, unless your program is 
more than 4,095 bytes. In that case you should 
put it in the BASIC area by POKEing 52 and 56 
with 32 and start your machine code routine at 
8,192 in decimal. For the Vic 20, where you 
start your machine code program depends on 
how much your machine has been expanded 
(see above). The Commodore does not need 
the difference of 1 between the value of the 
pointers marking the end of BASIC and the 
start of your machine code routines. The 
pointers you POKE at 52 and 56 already take 
that into account. 

Now key in the machine code monitor for 
your machine: 
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5 POKE 23658,8 

10 PRINT INVERSE 1;AT 5,6; 

"□ SPECTRUM MONITOR D" 
15PRINTAT8,4;"1:-DENTERD 

MACHINE CODE" 
20 PRINT AT 10,4;"2: - D EXAMINE 

□ MEMORY" 
30 PRINT AT 12,4;"3:-D SAVED 

BYTESOTODTAPE" 
70 LET A$ = INKEYS: IF AS < "1 " OR 

A$>"3" THEN GOTO 70 
80CLS:GOSUB100 + 200*(VAL 

A$-1) 
90 RUN 

100 INPUT "START ADDRESS? D";SA 
110 INPUT LINE D$ 
120 IF D$ = "" THEN GOTO 110 
125 IF D$(1) = "#" THEN RETURN 
127 IF LENDS = 1 THEN GOTO 110 
130 LET S$ = D$(1 T0 2) 
140 FOR N = 1 TO 2 
150 IF S$(N)>"9" THEN LET S$(N) 

= CHR$(CODES$(N)-7) 
155IFS$(N)>"?"ORS$(N)<"0" 

THEN PRINT FLASH 1;"INVALIDD 

CHARACTER": GOTO 110 
160 NEXT N 
170 POKESA, (CODES$(1) — 48)*16 

+ CODES$(2)-48 
180 PRINT SA,D$( TO 2) 
190LETD$ = D$(3TO) 
200LETSA=SA+1 
210 GOTO 120 

300 INPUT "STARTDADDRESS?D";SA 
310 INPUT "PRINTERD(YDORDN)?D"; 

LINE P$ 
320LETST=2:IFP$ = "Y"THEN 

LETST=3 
330 PRINT #ST;SA; 
340 FOR M = TO 7 
350LETH$ = "##" 
360 LET H$(1) = CHR$ (INT (PEEK 

(SA + M)/16) + 48) 
370 LET H$(2) = CHR$ (48 + PEEK 

(SA + M)-16*(CODEH$(1)-48)) 
380 FOR N = 1 TO 2 
390 IF H$(N) > "9" THEN LET H$(N) 

= CHR$(CODEH$(N} + 7) 
400 NEXT N 

410 PRINT #ST;TAB7 + 3"M;H$; 
420 NEXT M 
440LETSA = SA + 8 
445 PRINT #ST: POKE 23692,0 
450LETA$ = INKEY$:IFA$ = "" 

THEN GOTO 450 
460 IF A$ = CHR$ 1 3 THEN RETURN 
470 GOTO 330 

500 INPUT "START ADDRESS? D";SA 
510 INPUT "NUMBER OF BYTES?D";N 



520 INPUT "FILE NAME?D"; LINE N$ 
530IFLENN$<1 ORLENN$>10 

THEN GOTO 520 
540 SAVE N$CODE SA,N 
550 RETURN 



Before RUNning this program you must type in 
a REM statement on Line 1 followed by the 
appropriate number of characters to contain 
your machine code program — one character 
per byte of machine code: 

10 PRINT AT 4,9;"ZX81 MONITOR" 
15 PRINT AT 8,4;"1: ENTER MACHINE 

CODE" 
20 PRINT AT 10,4; H 2:— EXAMINE MEMORY" 
50 LET A$ = INKEYS 

60 IF A$ < "1 " OR A$ > "2" THEN GOTO 50 
70CLS 

80 GOSU B 1 00 + 200" (VAL A$ - 1 ) 
85CLS 
90 RUN 

100 PRINT AT 21,0;"START ADDRESS?" 
105 INPUT SA 
110 INPUT D$ 

120 IF D$ = "" THEN GOTO 110 
125 IF D$(1) = "$" THEN RETURN 
130LETS$ = D$(1TO2) 
135 SCROLL 
140 FOR N = 1 TO 2 
1 50 IF S$(N) < "0" OR S$(N) > "F" THEN 

PRINT "INVALID CHARACTER" 
1 55 IF S$(N) < "0" OR S$(N) > "F" THEN 

GOTO 110 
160 NEXT N 
170 POKE SA, (CODE S$(1)-28)*16 + C0DE 

S$(2) — 28 
175 SCROLL 
180 PRINT SA,D$(TO 2) 
190 LETD$ = D$(3TO) 
195 IF LEN D$ = 1 THEN GOT. > 
200LETSA=SA+1 
210 GOTO 120 

300 PRINT AT 21,0;"START'ADDRESS?' 
310 INPUT SA 
320 SCROLL 
330 PRINT SA; 
340 FOR M = TO 7 
350LETH$ = "DD" 
360 LET H$(1) = CHR$ (INT (PEEK 

(SA + M)/16)+28) 
370 LET H$(2) = CHR$ (28 + PEEK 

(SA + M)-16*(CODEH${1)-28)) 
400PRINTTAB7 + 3*M;H$; 
410 NEXT M 
440LETSA = SA + 8 
450 LET A$ = INKEYS 
460 IF A$ = "" THEN GOTO 450 
470 IFA$ = CHR$ 118 THEN RETURN 
480 GOTO 320 
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5 POKE 53280,0:POKE 53281 ,0:HH$ = 
"0123456789ABCDEF" 

10 print "□HSSSHHHk 

TAB(8)"1:- DENTERDMACHINED 

CODE" 
20 PRINT TAB(8)"H S2: - □ □ □ 

EXAMINEa MEMORY" 
30 PRINTTAB(8)"SS3:-DSAVE 

D BYTES D TOD TAPE" 
40 GETA$:IF A$<"1" OR A$>"3" 

THEN 40 
50 ON VAL(A$) GOSUB 100,200,300 
60 GOTO 10 
100 INPUT "□START ADDRESSD";SA 

110INPUT"gMHDDDDD 

||||||||||";D$:IFD$ = ""THEN110 
120 IF D$ = "#" THEN RETURN 
125W=0:FORZ = 1 TO 16:IF LEFT$(D$, 
1) = MID$(HH$,Z,1)THENW = W+1 

1 26 IF RIGHT$(D$,1 ) = MID$(HH$,7_1 ) 
THENW=W + 1 

127 NEXT:IFW<2 THEN 110 

130 A = ASC(D$)-48:B = ASC(RIGHT$ 

(DS,1))-48 
140C=B + 7*(B>9}-(LEN(D$)=2)*(16 

*(A + 7*(A>9))) 
150 POKE SA,C: PRINT @SHHMS 

DDDDDDDDDDDDDaD 

DDDDDDDDDDDDDDD 

DDDDDDDDDD □"SA,D$ 
160SA = SA+1:GOTO110 
200 INPUT "□STARTDADDRESSD";SA 
210 INPUT "PRINTERD(YDORDN)D"; 

PS: PRINT "□" 
220 IF P$ = "Y" THEN OPEN 4,4:CMD4 
230PRINTSA;:FORM = 0TO7 
240 A= (PEEK(SA)/16):PRINT MIDS 

(HH$,A+1,1);MID$(HH$,PEEK(SA) 

-INT(A)*16 + 1,1)"D"; 
250SA=SA + 1:NEXT 
260 IF P$ = "Y" THEN PRINT#4/'" 

CLOSE4 
270GETA$:IFA$ = ""THEN270 
280 IF A$ = CHR$(13) THEN RETURN 
290 PRINTGOTO 220 
300 CLR:INPUT "Q ENTER D START D 

ADDRESS";A:A = A - 3:AA = I NT(A/256) : 

A2=A-AA*256 
310 INPUT "ENTERDENDDADDRESSD D"; 

B:B = B + 1 :BB = INT(B/256):B2 = B 

— BB*256 
31 5 INPUT "INPUTD FILED NAMED D 

nn";N$ 

320 PRINT"nPC44,"AA":PC43,"A2 

330 PRINT"aHPC 4 6>"BB":PC45," 

B2:PRINT"M SSAVE"CHR$(34) 

N$CHR$(34) 

340 print'H gDUHHSSBB 

PC44,"PEEK(44)":Pn43,"PEEK(43) 
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350 PRINT"HHPC46,"PEEK(46) 
":PC45,"PEEK(45):PRINT 

■■SHRUNg" 

You'll need to change these Lines to allow the 
Commodore 64 program to work on the Vic 
20: 



5 POKE 36879,8:HH$ = "01 23456789 
ABCDEF" 

10 print '□aHaaaaBB 

1:—D ENTER MACHINE CODE" 
20 PRINT "HS2:-n D D EXAMINE 

MEMORY" 
30 PRINT "HSJ3:-DSAVE BYTES TO 

TAPE" 
150 POKE SA,C:PRINT "@SSS 

IinannnDDDDD 

DDDDDDDDDDDD 
n"SA,D$ 
230PRINTSA;:FORM = 0TO4 
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10CLS 

20 PRINT@196,"1:-DENTERDMACHINE 

DCODE" 
30 PRINT@260,"2: - □ EXAMINED 

MEMORY" 
40 PRINT@324,"3: - D SAVED BYTES 

□ TOD TAPE" 
50 A$ = INKEY$:IF A$ < "1 " OR A$ > "3" 

THEN GOTO 50 
60CLS 

70 ON VAL(A$) GOSUB 200,400,600 
80 GOTO 10 

200 INPUT "STARTDADDRESSD";SA 
210 LINE INPUT D$ 
220 IF DS = "" THEN GOTO 210 
230IFLEFT$(D$,1) = "#"THEN 

RETURN 
240S$=LEFT$(D$,2) 
250 POKE SA,VAL("&H" + S$) 
260 PRINTSA,LEFT$(D$,2} 
270D$ = MID$(D$,3) 
280SA = SA + 1:GOTO220 
400 INPUT "STARTDADDRESSD";SA 
410 PR!NT"OUTPUTDTOD PRINTER D 

(Y/N)D?" 
420 A$ = INKEY$:IF A$ = "" THEN 420 
430 P = 0:IF A$ = "Y" THEN P= -2 
440 PRINT #P,SA; 
450 FOR M = TO 7 
460 PRINT #P,"D";RIGHT$("D" + 

HEX$(PEEK(SA+M)),2); 
470 NEXT:PRINT #P 
480SA = SA+8 

490 A$ = INKEY$:IF A$ = "" THEN 490 
500 IF A$ = CHR$(13) THEN RETURN 
510 GOTO 440 
600 INPUT "STARTDADDRESSD";SA 



610 INPUT "NUMBERDOFD BYTESD";N 
620 LINE INPUT"F!LE NAMED ";N$ 
630CSAVEMN$,SA,SA + N,SA 

640 RETURN 



HOW THE MONITOR WORKS 



When you RUN the program appropriate for 
your machine, it will display a menu. This asks 
you whether you want to 'Enter Machine 
Code', 'Examine Memory' or— except on the 
ZX81— 'Save Bytes to Tape'. 

If you want to enter machine code you press 
1 . When you have given the machine a start 
address and pressed | ENTER | or | RETURN | , start 
feeding in your machine code. This consists of 
pairs of hex digits and you must feed the digits 
in two at a time. 

You can enter as many — or as few — pairs as 
you wish before you press I ENTER I or jRETURN | . 
But it is best to type in a line at a ti me and 
check the digits rigorously before you |ENTER| 
them. It is much easier to edit them while they 
are still on the screen than when they are in 
memory. On the Commodore the hex is 
entered two digits at a time. 

You will notice that the programs for the 
Spectrum, ZX81 and Commodores carefully 
translate your hex numbers back into decimal 
before POKEing them into memory. This is 
because the POKE command is a BASIC 
statement (see pages 240 to 247) and the 
BASIC on these two machines does not accept 
hex. Still, it is best for you to think in hex as it 
gives you more of a feel for the way the 
machine is working. 

You must end your machine code programs 
with a hash # sign — or a dollar sign on the 
ZX81. This returns you to the menu. 

If you select option 2 to examine the 
memory, the program will ask you again for a 
start address — this time it is the start of the 
memory area that you want to look at. To 
examine the whole of your machine code 
program, this start address should be the same 
as the start address for the whole of the 
program you've given before. 

Next, except on the ZX81, you're asked 
whether you want to PRINT out a hard copy of 
the machine code program on your printer, if 
you have one. If you don't want to do this, and 
press N, the program will print out the start 
address and the contents of that location and 
the subsequent seven memory locations in one 
line across the screen. 

If you press any key on the keyboard — 
except | ENTER | or | RETURN | — the address of the 
location eight on from the start address will be 
printed, along with its contents and the cont- 
ents of the seven subsequent bytes. This 
appears on a separate line underneath and you 
can PRINT out the whole of vour machine 



code program line-by-line in this fashion. 

If you spot an error and want to correct it, 
press | ENTER | or |RETURN| and the program will 
return you the menu. Press 1 to enter machine 
code and the computer asks you for a start 
address again. This time you give it the 
address of the byte that is wrong. If it's a whole 
series that is wrong, just give it the address of 
the first byte of the series. You then enter the 
correct bytes, one after the other again. 

If there is only a single error, though, you 
could correct it by BREAKing out of the 
monitor program and POKEing the appropriate 
location with the correction. Remember, 
though, on the Spectrum and the Commodore 
you have to POKE decimal number. 

When you've finished entering the correc- 
tion, you press |ENTER| or [RETURNl , then 
examine the memory again to make sure that 
you've got it right this time. 



SAVING YOUR ROUTINES 



If you want to keep this machine code monitor, 
you should SAVE it separately from your 
machine code programs on tape in the usual 
way (see page 23). The 'Save Bytes to Tape' 
option in the program itself only saves the 
machine code routines that have been entered 
with this program. 

On the ZX81, though, you must SAVE your 
machine code routines along with your moni- 
tor in the normal way. 

On the other machines if you press 3, the 
program will ask you for a start address once 
more. This should be the start address of the 
machine code routine you've just fed in, 
though you can save any part of the memory 
by using a different start address. 

The Specrrum, Dragon and Tandy versions 
of this program then ask you for the numbers 
of bytes your machine code routine takes up. 
You can work this out by counting the pairs of 
hex digits. Each pair is a byte. Then you must 
enter a name for the routine — so that your 
computer will be able to identify it when you 
want to LOAD it back from tape later. 

The routine is then SAVEd by pressing the 
play and record buttons on your cassette 
player in the normal way. When that is 
completed, the menu comes up again. 

The Commodore version asks for an end 
address. This is the start address, plus the 
number of bytes the program takes. Or you can 
work out the end address by examining the 
memory. 

Once you have given your routine a name, 
the machine will d isplay a program line at the 
top of the screen. |H0MEj the cursor here and 
press [RETURNl three times. You then press the 
play and record buttons on your cassette 
player to SAVE the program in the normal way. 
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But the Commodore machine code monitor 
cannot be used again until the pointers that 
were changed during the SAVE routine have 
been set again. To do that, take the cursor to 
the beginning of the program line half way 
down the screen and press RETURN] three 
times. This will POKE the original values back 
into the pointers and RUN the program again 
for you automatically. 



LOADING MACHINE CODE 



With the Spectrum, Dragon and Tandy you 
simply LOAD the machine code routine in the 
normal way (see page 22), though if you have 
the machine code monitor program in the 
machine's memory and it is RUNning, you'll 
have to press ] BREAK] to escape from the 
program first. 

Remember to repeat the CLEAR command 
so that your machine code is protected if you 
have switched the machine off or otherwise 
altered the position of RAMTOP since you 
SAVEd your machine code routine. 

With the Commodores you have to use a 
more specialized LOAD command when enter- 
ing machine code from tape to make sure that 
it is put back in the same place it was copied 
from when you SAVEd it. The LOAD command 
has the following format: 

LOAD "Routinename'\ 1,1 

"Routinename" is the name of the machine 
code routine you are aiming to LOAD. This is 
always in quotes. The first 1 is the device 
number, 1 means cassette recorder. The sec- 
ond 1 tells your Commodore to replace the 
program in exactly the same spot in memory it 
came from. 

If you are LOADing from disk, you should 
suffix the LOAD command with ,8,1. 

Again, if you had altered any of the BASIC 
pointers when you wrote the machine code 
routine and SAVEd it, you must set them again 
to the same values if they have been altered for 
any reason since then — like you switched the 
machine off. Otherwise your machine code 
routine will not be protected and may be 
overwritten by BASIC. 

With the ZX81, your machine code 
program can be LOADed off tape along with the 
monitor in the usual way, 



SCROLLING BACKWARDS 



The following routines will scroll the screen 
backwards — that is from top to bottom rather 
than from bottom to top. Enter the appropriate 
routine for your machine using the machine 
code monitor. Remember not to type in any 
spaces between the numbers on the Spectrum, 
ZX81, Dragon or Tandy. On the Commodores 
the numbers are entered one at a time. 



21 9F5811 BF 58 06 08 
2515E5D5C5 01 A0 00 
ED B8 06 02 C5 D5 1 1 00 
F9 19D1 01 20 00 ED B8 
E5 21 00F919EBE1 01 
E0 00EDB8C1 10E5C1 
D1 E1 10D4 21 00 3F06 
08 C5 24 E5 AF 77 54 5D 
13 01 1F00EDB0E1 C1 
10EF21 9F5A11 BF 5A 
01 A0 02 ED B8 21 00 58 
1 1 01 58 3A 3D 5C 77 01 
1F00EDB0C9 # 



01 18 03 2A0C40 09 54 
5D 01 F7 02 2A 0C 40 09 
ED B8 2A 0C 40 23 36 00 
54 5D 13 01 1F00EDB0 
C9 



A913 20D2FFA911 20 
D2 FF A9 9D 20 D2 FF A9 
94 20 D2 FF A9 A0 85 DA 
A9 0D 20 D2 FF 60 # 



8E 05 E0 A6 84 A7 89 FE 
00 30 88 E0 A6 84 A7 88 
20 8C 04 00 2C F3 30 89 
02 01 8C 06 00 25 E4 39 

# 



RUNNING THE PROGRAMS 



Once you have keyed in your machine code 
program and checked that there are no errors 
in it by examining it in memory, you will want 
to run it. But it will not respond to the usual 
RUN command as that is a BASIC instruction 
and will only RUN BASIC programs. Special 
instructions are used to run machine code 
programs. 



The Spectrum and ZX81 use the BASIC 
keyword USR, followed by the start address of 
the machine code program. USR returns the 
value of the BC register once the machine code 
routine has been completed. In itself this is not 
very useful, but it does mean that the machine 
code program does have to run while it is being 
worked out. 

Unfortunately, USR is not a command but a 
function. And the structure of Sinclair BASIC 
demands that to be executed, a line must start 
with a command. So USR must be prefaced by 
a command word. On the Spectrum use: 



RANDOMIZE USR 32000 

andontheZX81: 

RAND USR 16514 

(Note that the key marked RAND on the 
Spectrum gives RANDOMIZE on the screen. On 
the ZX81 the RAND key gives RAND on the 
screen,) In itself, this command is meaning- 
less, but it does succeed in running the 
machine code routine. 

In fact any BASIC command can be used to 
preface USR, PRINT USR 32000 will do, though 
this will actually PRINT out the value to BC on 
the screen. 

RANDOMIZE USR 32000 (or RAND USR 
16514) is used most commonly because it 
avoids such unwanted side effects. But it 
should be avoided if you are using random 
numbers anywhere in your program, as it will 
set the seed again. In this case on the Spectrum 
use: 

LET L= USR 32000 

and on the ZX81 use: 

LET L= USR 16514 

This sets the variable L to the value of the 
BC register when the machine code program 
has finished running — no great shakes in itself, 
but Sinclair users will note that LET,L, = 
and USR are all on the same key, which 
makes things easier. 
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easiest way to run a machine code 
program on your Commodore 64 or Vic 20 is 
to type in SYS followed by the start address of 
the machine code routine. But if you want to 
pass variables between the machine code rout- 
ine and BASIC you can use the BASIC 
function USR. 

The usual syntax is: 

A= USR(B) or PRINT USR(B) in direct mode. 

USR sends the computer to the machine code 
routine whose start address is stored in mem- 
ory locations 785 and 786 (in the usual low- 
byte/ high-byte format). So you must POKE 
these locations with the start address of the 
machine code routine you want to run first to 
set the pointers. 

The value of B is passed into the machine 
code program through the first floating point 
accumulator, which occupies memory loc- 
ations 97 to 102 (97 is the exponent, 98 to 101 
is the mantissa and 102 carries the sign). USR 
also returns the contents of the floating point 
accumulator when the machine code routine is 
finished. This way it can be used to pass values 
from your machine code routine back to the 
BASIC program. 
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On the Dragon and Tandy there are two 
instructions which run machine code 
programs. EXEC is a command which should be 
followed by the start address of the machine 
code routine you want to run. For example: 

EXEC24000 

will run the machine code routine which starts 
at memory location 24000 decimal. But the 
USR command allows variables to be passed 
between the BASIC program and the machine 
code routine. 

First of all you must define where the 
machine code routine you want starts. You do 
this with the instruction DEFUSR. This should 
be followed by a number between and 9, so 
you can define up to ten USR routines — that is 
you can use up to ten machine code subrout- 
ines in any BASIC program. If DEFUSR is not 
followed by a number, the computer assumes 
it to mean DEFUSR0. 



The usual syntax in a BASIC program is: 

10 DEFUSR1 =24000 

This defines USR routine number 1 as the one 
that starts at memory location 24000 decimal. 

The command that actually runs the ma- 
chine code is USR. Due to a bug in the 
Dragon's ROM, to call a machine code rou- 
tine, USR must be followed by and the 
number of the routine which you have previ- 
ously defined. The Tandy does not need the 0. 

The usual syntax is: 

P = USR01(Q) or PRINT USR01{Q). 



The USR command copies the value of the 
variable Q into the floating point accumulator. 
From there it can be picked up by the machine 
code routine. 

When the machine code routine is finished 
the contents of the floating point accumulator 
are returned to the BASIC program, in this 
example, as variable P. 

String variables can also be passed between 
BASIC and machine code programs in the 
same manner. 
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Computers can perform operations 
of logic many millions of times a 
second when running. But logic is 
also a fundamental part of any 
program . . . 



Three types of expression are used in BASIC 
programming. Much of the 'meat' of any 
program is formed by arithmetic and string 
expressions, but the third type, logical ex- 
pressions, often do the real work of decision- 
making in a program. 

Their simple function is to evaluate whether 
something is 'true' or 'false'. The program 
words and symbols used to do this are called 
operators (or, by some, connectors or 
connectives). 

Two types of operator are used in logical 
expressions: relational operators (which inc- 
lude mathematical symbols such as < , > and 
= ) and logical operators included as part of the 
keyword list of all forms of BASIC: AND, OR 
and NOT. 



MORE, EQUAL, LESS 



The relational operators can be used in the 
simplest of BASIC programs. The compa- 
risons possible using these are: 

A > B . . .A is greater than B 

A < B ... A is less than B 

A > = B . . . A is greater than or equal to B 

A < = B . . . A is less than or equal to B 



A = B ... A is equal to B 

A <> B ... A is not equal to B 

You're bound to have seen these in use in 
dozens of programs in INPUT or elsewhere, 
and although they can be used in straightfor- 
ward arithmetic it's in conjunction with IF . . . 
THEN that their true value in conditional tests 
becomes evident. A typical example is: 

IF A> B THEN PRINT "A IS GREATER 
THAN B" 

The value of A here must exceed that of B 
before the remainder of the line is executed. In 
any instance where the value of A remained 
below B, the program would simply continue 
on to the next line. So you can see that some 
measure of conditional branching is possible: if 
one set of values applies, the program does one 
thing; if another set of values applies the 
program does something else. 

Relational operators are not limited to 
numerical values alone, but may also be used 
to compare strings. However, this must be 
done with caution or it may leac^o some odd 
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results. The first point to remember is that the 
comparison always stops with the number of 
characters in the shorter of the two strings 
being compared. So if one string contains 
eleven characters while the other contains 
seven, only the first seven of the longer string 
are compared with their counterparts in the 
shorter string. 

The comparison is actually made one char- 
acter at a time from left to right and this is 
where the odd results may come in. In a 
numerical comparison the statement 5 > 1 is 
obviously untrue, but in a string comparison 
you may have a statement where two variables 
are compared in the form A$ > B$. If 
A$ = "5" and B$ = "10" the computer first 
compares the left hand 'character' on each 
side — 5 and 1 — and then stops because as far as 
it's concerned there's nothing else to compare. 

Incorrectly, a 'true' condition now .exists 
because 5 is greater than 1 , but the computer 
ignores important remaining figures on the 
longer side. You have to watch out for errors 
such as these. 

In 'real' character strings, the letters of 
the alphabet have the following order 
"A" < "B" < "C" < "D" (and so on) in com- 
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parisons. But once again, you have to use some 
care because the computer doesn't actually 
understand what these characters mean. What 
it does is to compare the character codes of the 
letters (a later article explains these codes more 
fully) — so spaces and other non-letter charac- 
ters (which also have a code value) in the string 
are significant. This could cause havoc in a 
program designed to sort strings into alphabe- 
tic order. 

If each string has the same sequence of 
characters, then the longer string is considered 
numerically larger, But note that a shorter 
string is considered the larger in an expression 
such as "ABD" > "ABCD" for the comparison 
stops at the first difference — when the code 
values of "D" and "C" are compared. It works 
in fact in a similar way to the alphabetical 
priority in a dictionary or index, where 'ant' 
comes before 'antelope' but after 'aardvark'. 



TRUE OR FALSE 



After any comparison you get a result — an 
integer in fact. The result is if the com- 
parison is false, and (depending on your 



machine) — 1 or 1 if it is true. Enter this in 
direct (immediate) mode to check out your 
computer: 

PRINT6>5, 5>7 

The left hand expression is true, the right hand 
one false. So you'll get a —1 (or 1) and 
displayed on the screen. 

The integers you get as a result can be used 
in their own right for performing calculations 
within a program. Be careful with division 
though as you'll get an error message if you try 
to divide anything by 0. 



LOGICAL OPERATORS' 



The keywords AND, OR and NOT are logical 
operators which provide a powerful extension 
to IF ... THEN decision-making of the type seen 
on page 33. For example, IF this is true AND 
that is true, THEN do something. Certain other 
functions can be performed as well. These 
operators — sometimes called Boolean 
operators (don't worry about the long name) — 
can be used in direct or program modes to 
compare numbers or strings, and to obtain a 
'truth value' of what may often be very 
complex test conditions. So they offer, a short- 



cut alternative to what would otherwise be 
very involved conditional branches making 
messy use of IF . . . THEN statements. 



USING AND 



The operator AND can, at its simplest, be 
considered to have the same meaning as in 
English. In an expression such as: 

IF V > AND V < 1 00 PRINT "IN RANGE" 

the message is displayed only if V is greater 
than and less than 1 00. 

In a program, you may get a line like this: 



990OKAY=1 ANDMNTH>5AND 
MNTH < 1 AND YEAR > 1 900 AND 
YEAR < 2001 

990 OKAY = - 1 AND MNTH > 5 AND 
MNTH < 1 AND YEAR > 1 900 AND 
YEAR < 2001 



Such a program line could be used to check 
whether a date was in the summer in the 
twentieth century. 



ed to 




Here AND is used to conduct four tests, each 
of which must be true if OKAY is to remain true 
also. In this validation test the OKAY variable is 
first set to 'true' ( — 1 , but 1 on the Sinclairs). 
Now, the requirement is that the MNTH falls 
in the range 6 to 9 and the YEAR between 1 901 
and 2000. But let's look more closely. If all the 
conditions are met the expressions all yield a 
truth value. So, in effect, the program line 
converts to: 
990 OKAY = - 1 AND - 1 AND - 1 AND 

-1 AND-1 
(1 rather than — 1 on the Sinclairs) 

by adding PRINT OKAY you can check that the 
result is indeed — 1 , or true. 



USING OR 



OR can be regarded in much the same way as 
AND although its meaning differs, as you might 
expect from its use in everyday English. Again, 
look at its use in a simple program line where it 
is used to compare the values of a variable: 

IF V = B OR V = 10 PRINT "OKAY" 

The message is displayed if the value of V is 8 
or 10. 

OR is very useful when checking the validity 
of an INPUT to a program. If you're asked to 
enter your age, say, there is always someone 
who'll try out — 10 or 999 just to see what 
happens. But you can get round the problem 
like this: 

10 INPUT A 

20IFA<1 OR A>120 THEN PRINT 
"PLEASE BE SENSIBLE": GOTO 10 



USING NOT 



The third commonly used logical operator is 
NOT. This differs slightly in that it acts only on 
the numerical or logical expression which 
follows it — AND and OR both compare ex- 
pressions on either side, but NOT works only 
on a single value. 

NOT can be used in a program line such as: 

IF NOT {A> 10) THEN 999 

In everyday English this could be translated 
into something like 'if the value of A is not 
greater than 10, proceed to Line 999'. 

The logical function of NOT is to convert a 
true condition into a false one — or vice versa. 
So you can use NOT as a switch or to reverse 
the true/false value which was the result of 
another test. 



TRUTH TABLES 



Quite often you'll come across references to 
'truth tables' when mention is made of logical 
operators. 

These are very simple and are used to give a 
visual representation of what occurs when true 
( — 1 or 1) and false (0) values are ANDed or 
ORed. NOT doesn't really need a table as values 
are simply reversed. 

Truth tables can take different forms. A 
typical one for AND is: 
ABC 



This doesn't mean much until you interpret 
line 1 as: 'If A is true and B is true then C is 
true'. The meaning of line 2 is: 'If A is true and 
B is untrue then C is untrue'. Line 3 means: 'If 
A is untrue and B is true, C is untrue'. Line 4 
reads: 'If A and B are both untrue then C is 
untrue'. The truth table for OR is: 

A B C 



-1 


-1 


-1 


-1 





-1 





-1 


-1 












1 


-1 


-1 


1 











-1 















(linel) 
{line 2) 
(line 3) 
"ine 4) 



The first line reads: 'If A is true and B is true 
then C is true'. Lines 2 and 3 can each be 
interpreted as: 'If either A or B is true then C is 
true'. Line 4 means: 'If A and B are both 
untrue then C also is untrue'. 



IN PRACTICE 



Finally, here is a program that uses AND, OR 
and NOT. It's a simplified version of a program 
that works out the correct salary scale for 
someone applying for a job: 

10 INPUT "AGE"; AGE 

20 INPUT "NUMBER OF 0-LEVELS"; 

OLEVELS 
30 0VER1 S = (AGE> = 1 8) 

40 QUAL = (OLEVELS > =5) 
50IFNOTOVER18ANDNOTQUAL 

THEN PRINT "NOT SUITABLE" 
60 IF(N0T 0VER18 AND QUAL) 0R(0VER18 

AND NOT QUAL) THEN PRINT'SALARY 

SCALE ONE" 
70 IF 0VER18 AND QUAL THEN 

PRINT "SALARY SCALE TWO" 
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Say you INPUT age 20 and 4 O-levels. This 
means that (AGE>=18) is true, but 
(OLEVELS > = 5} is false. So the person is 
0VER18 and NOT QUALified. The computer 
soon finds this set of conditions in Line 60 and 
so it PRINTS out 'SALARY SCALE ONE'. You can 
easily extend this program to check more 
conditions — such as whether the person has 
more than two years experience, or anything 
else that's necessary for the job. 

(Note, on some BBC computers you'll need 
to change the semicolons in Lines 10 and 20 to 
commas.) 



USING EOR 



The Acorn computers have one extra operator 
called EOR — short for Exclusive OR. It means 
you can have either one thing or another but 
not both. You might use it in an expression 
such as this: 

IF buses < =2 EOR cars< =6 THEN PRINT 
"YOU CAN BOARD THE FERRY" 

Using EOR prevents the ferry being overloaded 
with both buses and cars. 

Here is the truth table for EOR: 



B 



-1 -1 

-1 -1 

-1 





Like the other operators, EOR can also be used 
numerically and it is particularly useful for 
switching back and forth between two num- 
bers. If you have a line like: 

S = S EOR 1 

inside a loop and you set S equal to 1 at the 
start, it will equal the first time round, 1 
second time, third time and so on. You could 
then use S to control various things within the 
program. For instance, COLOUR S would swap 
between COLOUR and 1; PRINT CHR$ 
224 + S would swap between character 224 
and 225 — which is just what you might need 
for an animation sequence. 



NUMERICAL OPERATIONS 



Use of the logical operators is not confined to 
IF . . . THEN statements as shown above. They 
can be used in certain types of numerical 
operations as well. You may have seen them 
used this way in programs and wondered what 
was happening. In fact they do not always 
work in the obvious way you might expect. 
Enter this in direct mode: 

PRINT 375 AND 47 

You might expect this to give a result of 422, or 
perhaps 37547. In fact, the result is 39. So 
what's happening? To explain this we have to 
delve slightly deeper into the working of the 
computer, to understand the way in which the 
two ANDed expressions in the second example 
are handled. 



The first thing that happens is that the 
expressions (375 and 47) are converted into 
two-byte integers. Here's the binary form of 
both numbers: 

Two-byte binary of 375: 

0000000101110111 
Two-byte binary of 47: 

0000000000101111 

Now, AND does a bit-by-bit comparison of the 
1 6 bits, returning 1 only when there's a 1 in the 
same bit of each binary number. Working from 
the right, only the zeroth, first, second and 
fifth bit-pairs fulfil this. This gives the binary 
number 0000000000100111. Converting 
this back to decimal, bits 5, 2, I and have a 
combined value of 39, the result of AN Ding 375 
with 47. 

Now try this in direct mode: 

PRINT 375 OR 47 

So how is the result — 383 — obtained? The 
property of ORing is to give a bit result of 1 if 
either one of the bits in any bit-pair comparison 
is 1. Look at the two-byte binary form of the 
numbers again. Bits 8, 6, 5, 4, 3, 2, 1 and 
all have a 1 in at least one part of the bit- 
pair. The resulting binary number is 
0000000101111111 which is 383 in decimal. 
With OR it is possible to obtain the same bit 
value for different expressions. For example 
PRINT 375 OR 75 also yields the result 383. You 
can check this, if you wish, by converting the 
numbers to binary. 
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The value — 1 (which, incidentally, is 
stored as FFFFFFFF in hex, a bit pattern all 
of Is) is left unaltered when ORed with any 
valid number. To test this try in direct mode: 

PRINT -1 OR 375 

And the result is 1 . 

Now look at NOT in a numerical appli- 
cation 

PRINT NOT 1 0.75, NOT - 1 1 

This gives the results — 1 1 and 1 0. So NOT in 
effect adds 1 to the number being NOTed and 
then changes the sign. Note that the floating 
point number is rounded down to an integer 
and that the actual value can be estimated 
using X=— (X + l). In fact the value is 
converted into a four-byte integer whose bits 
are all reversed. 



The logical operators on the Sinclair com- 
puters do not make bit-by-bit comparisons of 
numbers and so are rarely used in numerical 
operations. 



used to control the contents of any memory 
location are POKEs and PEEKs (see page 246), 
and a typical instruction may take the form: 

POKE 1, PEEK (1) AND 251 

This (on the Commodore 64) turns off bit 3. 
PEEK (1 ) gives 55 decimal, so let's see how this 
is ANDed: 



Q-i-A 



Value 55: 
Value 251: 



00110111 
11111011 



BITWISE OPERATION 



The logical operators have an additional func- 
tion on Commodore computers as bit-by-bit 
operators capable of controlling the functions 
of the computer. On Commodore computers, 
certain memory locations perform a variety of 
tasks. You can specify a task by arranging a 
particular combination of bits to be held 
'high' — to be switched on — at the same time 
suppressing others. The BASIC commands 



Now ANDing these bits gives: 00110011 
( = 51). Compare the old bit pattern of the 
value 55 with the bit pattern of 51 (the new 
PEEK value of location 1) and you can see that 
bit 3 (third from the right) has changed to — 
effectively, it has been switched off. The 
situation can be reversed by using OR in this 
form: 

POKE 1, PEEK (1) OR 4 

The only 1 which appears in the binary form of 
4 (00000100) when ORed with the bit pattern 
of binary 51 (00110011) gives 00110111 
which is the value of the PEEK before the 
previous operation was carried out — in other 
words it has reverted to 55. 

All this may seem like a lot of trouble when 
in many instances you can actually use a direct 
POKE value rather than bother with logical 
operators. Here, though, there is a risk of 
accidentally readjusting other bits from their 
previous high or low setting. Using logical OR 
you need only specify the bit value(s) you wish 
turned on (that is set to 1): anything else that is 
already on is not affected. 



Is there any limit to the size of 
numbers used in AND and OR 

The Commodore 64, Vic 20, Dragon and 
Tandy computers cannot use numbers 
which exceed the range —32768 to 
+ 32767 in any ANDing or ORing 
operation. Exceeding this range produces 
an illegal quantity error message on the 
Commodores and a function call error 
message on the Dragon or Tandy. 

The Acorn computers accept numbers 
of up to four bytes — minus 65536 2 /2 
to plus 65536 2 /2— 1— so any conceiv- 
able logical operation is likely to fall 
within range. 

Numbers cannot be ANDed or 
ORed on the Spectrum. 



AND can be used to switch off one or more 
bits simply by deducting the cumulative 
value of all remaining bits from 255. To 
switch off bits and 2, for example, which is 5 
in decimal, use AND 250. To switch them back 
on you would use OR 5. 

This type of procedure is sometimes refer- 
red to as bit masking and the difference from 
direct POKEing is that the latter changes bit 
values in accordance with the value you 
POKEd. Logical operators do not necessarily 
change anything but the bit you want changed. 




CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 
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adventure games 

aliens and missiles 

animation 

arrays for games 

bombing ran program 

controlling movement 

firing missiles 

fruit machine 

guessing 

levels of difficulty 

maze game 

minefield 

moving characters 

random mazes 

routines 

scoring and timing 

sound effects 

space station game 

visual explosions 
GET, Commodore 64 
GETS, Acorn 



264-268 

144-151 

26-32 

155 

161-167 

54-59 

55-58 

36 

3-S 

193-200 

68-74, 230-235 

97-103 

54-59 

193-200 

S-15 

69-73 

230-235 

144-151 

161-167 

55, 132-134 

55,57,58,103,132-134 



GETff, Commodore 64, Vic 20 

Golf-course, drawing a 
Acorn, Spectrum 

GOSUB 

GOTO 

Graphics 
characters 

creating and moving UDGs 
drawing on the screen 
drawing pictures 
explosions for games 
fire-breathing dragon 
frog UDG 
instant embroidery 
low-resolution 
painting by numbers 
refining your graphics 
sunset pattern 
tank UDG 

using PLOT, DRAW, 
CIRCLE, LINE, PAINT 
using SIN and COS 



135 

184-191 

62-64 

18-21, 60-62 

38-15 

8-15 

132-133 

107-109 

161-167 

80-83 

10-15 

21 

26-32 

19 

184-192 

20 

10-15 

85-90 
250-256 



H 



Helicopter, building a 

Commodore 64 31 

Hexadecimal 38, 42, 45, 1 56-1 60 

Hobbies file 46-53, 75-79 
House, drawing a 

Acorn, Commodore 64 107-109 



IF. ..THEN 

Indirection operators 
INK, Spectrum 



3, 33-37 
247 
86 



INKEY, Acorn 
INKEYS 
INPUT 
INSTR 

J 

Joysticks 



28-29, 103, 134-135 

54-55, 132-135 

3-5, 117-122, 129-135 

206 



220-224 



K 



Keypress, detection of 
Keywords, spelling of 



Languages, computer 
see Assembly language; 
BASIC; Machine code 

LEFTS 

LEN 

Letter writing program 

LINE, Dragon, Tandy 

Line numbers, in programs 

Logical operators 

Lower case letters, 
Dragon, Tandy 



54-55 
19 



202-207 

202-207 

124-128 

88-91 

7 

35-37, 284-288 



M 



Machine code 

advantages of 

binary coded decimal 

binary numbers 

drawing dragon with 

entering machine code 

games graphics 

hexadecimal 

low level languages 

machine architecture 

memory maps 

monitors 

negative numbers 

nonary numbers 

number bases 

ROM and RAM 

speeding up games routines 
Maze programs 
MIDS 

Minefield game 
Movement 



142 



66 

238 

113-116 

80-83 

276-283 

38-45 

156-160 

65-67 

236-239 

208-215 

276-283 

179-183 

111-112 

110-116 

208-215 

8-15 

68-75, 193-200 

202-207 

97-99 

26-32, 59 



N 



Negative binary numbers, 

conversion program 180-183 

NEW 10-15, 23 

Nonary numbers 1 1 1 

NOT 286-288 

Null strings 96 

Number bases 110-116 







Opcodes 

Operators 

OR 



Paper for printers 
Password program 
PEEK 
Peripherals, cassettes 

joysticks 

printers 
Pets survey program 
PLAY, Dragon, Tandy 
PLOT 
PMODE, Dragon, Tandy 



67 

35, 284-288 

35-36, 286-288 



59, 101 



228 

133 

240-247 

22-25 

220-224 

225-229 

269-275 

234-235 

88-89 



Positioning text 

PRINT 

Printer, choosing a 

PROCedures, Acorn 

PSET, Dragon, Tandy 



117-123 

26-32, 117-123 

225-229 

64 

13, 90-91 



Punctuation, in PRINT statements 119-123 



R 



25, 44, 46, 



40-44, 



RAM 

Random numbers 

Random mazes 

READ 

Registers 

Relational operators 

REPEAT ... UNTIL, Acorn 

Resolution, high and low 

RESTORE 

RETURN 

RIGHTS 

RND function 

ROM 

ROM graphics 26-32, 

Running man, building a, Acorn 



208-215 

2-7 

193-200 

104-109 

236-239 

284-285 

36 

84 

106-107 

62 

202-207 

2-7 

208-215 

107-109 

28-29 



Satellite, building a 

Dragon, Tandy 26-27 

SAVE 22-25 

Scoring 97, 100-101 

SCREEN, Dragon, Tandy 40, 90 

Screen drawing program 132-433 

Screen formatting 1 1 7-1 23 

Scrolling backwards 282-283 

Shell, filing a 10-15 

Ship, drawing a, Dragon, Tandy 191 

SID chip, Commodore (A 231 

Simons' BASIC, Commodore 64 87-88 

SIN 250-256 

Snow scene, Commodore 64 186-188 

SOUND, Acom, Dragon, Tandy 233-235 

Sound effects 230-235 

Sprite, Commodore 64 14, 15, 168-172 

Stack 237-239 

STEP 17, 21 

String functions 201-207 

String variables 4-5, 95-96 

STRINGS 98, 205 
Structured programming 

173-178,216-219 

Subroutines 62-63 



TAB 

Tank, controlling and 

creating a 
Teletext graphics, BBC 
Terminating numbers 
Timing 

Two dimensional arrays 
Twos complement 



117-122 

10-15 

28 

34 

97, 101-103 

269-275 

179-183 



u 



UDG 

colour UDGs, Dragon, Tandy 
definition of 
grids for 
creating your own 



248-249 

8-15,40-44 

8-11 

38-45 



V 



POKE 



90 
101, 108-109, 240-247 



VAL, Commodore 64 10! 

Variables 3-5, 92-96, 104-108 

VDU command, Acom 28-29, 70, 99 

Verifying saved programs 24-25 

VIC chip memory locations 

Commodore 64 172 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 
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—I Follow the development of a complete 
adventure game. The first stage: 
MAPPING OUT THE ADVENTURE 

Q Learn about ASCII CODES— what they 
are, and hovo to make them work for you 

-J Fast, accurate typing is a valuable 
skill, whether you're writing a book or 
copying programs. Let your computer 
teach you with our TYPING TUTOR 

OGet started on ASSEMBLY 
LANGUAGE, and learn how to translate 
it into machine code 

CJ There's more on SIN and COS, the 
maths functions that you can use for all 
kinds of fascinating graphic effects 
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